VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 学用MonthView控件
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:17049, 日期:2001-02-12
学用MonthView控件} 》

{VB 6.0中有一个很实用的小控件:MonthView(日历控件),用它可以编写出具有日历功能的程序(如图)。
下面介绍一下MonthView的用法。
1.首先,要在VB中找到MonthView控件:在“工程”菜单中选择“部件”,然后找到“Microsoft Windows Common Controls 2 -6.0”,选中后按“确定”。此时,在VB的控件工具栏中会多出4个控件,MonthView就在其中。
2.将MonthView加载到窗体上并设置它的属性?右击MonthView控件,选择“属性”,然后在出现的属性页中就可以设置MonthView的各种属性了。
以下的几个属性需要说明一下:
MinDate?日历所显示的最早日期?
MaxDate?日历所显示的最晚日期;
StartWeek?日历显示时,作为第一列的星期号。
按照我们的习惯,星期一应在首列,所以将它设置为2-mvwMonday。?默认值为1-mvwSunday,也就是把星期日作为首列,这是美国人的习惯。?
MonthRows和MonthColumns分别是用来同时显示的多个月份时的行和列。在例图中MonthRows=1,MonthColumns=1,即一行一列。
当把这些属性设置好之后,一个日历就诞生了?同时,我们在编程当中还可以得到MonthView几个有用的属性的返回值。它们是:Year表示被选中的年份;Month表示被选中的月份;Day表示被选中的日期;DayOfWeek表示被选中日期的星期号。要注意?DayOfWeek的返回值为1~7,1代表星期日,2代表星期一,以此类推。下面我们介绍一个简单的例子:
′执行下面的代码将获得MonthView的返回值
Private Sub MonthView1_DateClick?ByVal DateClicked As Date?
dayn = MonthView1.Day
monthn = MonthView1.Month
yearn = MonthView1.Year
weekdayn = MonthView1.DayOfWeek
′把DayOfWeek的返回值转换为中文。
Select Case weekdayn
Case 1
Weekdays = ″日″
Case 2
Weekdays = ″一″
Case 3
Weekdays = ″二″
Case 4
Weekdays = ″三″
Case 5
Weekdays = ″四″
Case 6
Weekdays = ″五″
Case 7
Weekdays = ″六″
End Select
Msgbox ″您选择的日期是?″ & yearn & ″年″ & monthn & ″月″ & dayn & ″日 星期″ & Weekdays
End Sub
好了,MonthView的使用就讲到这里.现在,打开你的VB,快点动手试一试吧!
(河北 马晓明)
编者注:还记得我用Qbasic编写日历的时候费尽了心思,不过现在有了VB 6.0中的日历控件,我便能轻轻松松地编写一个“万年历”了。}