{ＶＢ ６．０中有一个很实用的小控件：ＭｏｎｔｈＶｉｅｗ（日历控件），用它可以编写出具有日历功能的程序（如图）。
下面介绍一下ＭｏｎｔｈＶｉｅｗ的用法。
１．首先，要在ＶＢ中找到ＭｏｎｔｈＶｉｅｗ控件：在“工程”菜单中选择“部件”，然后找到“Ｍｉｃｒｏｓｏｆｔ Ｗｉｎｄｏｗｓ Ｃｏｍｍｏｎ Ｃｏｎｔｒｏｌｓ ２ －６．０”，选中后按“确定”。此时，在ＶＢ的控件工具栏中会多出４个控件，ＭｏｎｔｈＶｉｅｗ就在其中。
２．将ＭｏｎｔｈＶｉｅｗ加载到窗体上并设置它的属性?右击ＭｏｎｔｈＶｉｅｗ控件，选择“属性”，然后在出现的属性页中就可以设置ＭｏｎｔｈＶｉｅｗ的各种属性了。
以下的几个属性需要说明一下：
ＭｉｎＤａｔｅ?日历所显示的最早日期?
ＭａｘＤａｔｅ?日历所显示的最晚日期；
ＳｔａｒｔＷｅｅｋ?日历显示时，作为第一列的星期号。
按照我们的习惯，星期一应在首列，所以将它设置为２－ｍｖｗＭｏｎｄａｙ。?默认值为１－ｍｖｗＳｕｎｄａｙ，也就是把星期日作为首列，这是美国人的习惯。　
ＭｏｎｔｈＲｏｗｓ和ＭｏｎｔｈＣｏｌｕｍｎｓ分别是用来同时显示的多个月份时的行和列。在例图中ＭｏｎｔｈＲｏｗｓ＝１，ＭｏｎｔｈＣｏｌｕｍｎｓ＝１，即一行一列。
当把这些属性设置好之后，一个日历就诞生了?同时，我们在编程当中还可以得到ＭｏｎｔｈＶｉｅｗ几个有用的属性的返回值。它们是：Ｙｅａｒ表示被选中的年份；Ｍｏｎｔｈ表示被选中的月份；Ｄａｙ表示被选中的日期；ＤａｙＯｆＷｅｅｋ表示被选中日期的星期号。要注意?ＤａｙＯｆＷｅｅｋ的返回值为１～７，１代表星期日，２代表星期一，以此类推。下面我们介绍一个简单的例子：
′执行下面的代码将获得ＭｏｎｔｈＶｉｅｗ的返回值
Ｐｒｉｖａｔｅ Ｓｕｂ ＭｏｎｔｈＶｉｅｗ１＿ＤａｔｅＣｌｉｃｋ?ＢｙＶａｌ ＤａｔｅＣｌｉｃｋｅｄ Ａｓ Ｄａｔｅ　
ｄａｙｎ ＝ ＭｏｎｔｈＶｉｅｗ１．Ｄａｙ
ｍｏｎｔｈｎ ＝ ＭｏｎｔｈＶｉｅｗ１．Ｍｏｎｔｈ
ｙｅａｒｎ ＝ ＭｏｎｔｈＶｉｅｗ１．Ｙｅａｒ
ｗｅｅｋｄａｙｎ ＝ ＭｏｎｔｈＶｉｅｗ１．ＤａｙＯｆＷｅｅｋ
′把ＤａｙＯｆＷｅｅｋ的返回值转换为中文。
Ｓｅｌｅｃｔ Ｃａｓｅ ｗｅｅｋｄａｙｎ
Ｃａｓｅ １
Ｗｅｅｋｄａｙｓ ＝ ″日″
Ｃａｓｅ ２
Ｗｅｅｋｄａｙｓ ＝ ″一″
Ｃａｓｅ ３
Ｗｅｅｋｄａｙｓ ＝ ″二″
Ｃａｓｅ ４
Ｗｅｅｋｄａｙｓ ＝ ″三″
Ｃａｓｅ ５
Ｗｅｅｋｄａｙｓ ＝ ″四″
Ｃａｓｅ ６
Ｗｅｅｋｄａｙｓ ＝ ″五″
Ｃａｓｅ ７
Ｗｅｅｋｄａｙｓ ＝ ″六″
Ｅｎｄ Ｓｅｌｅｃｔ
Ｍｓｇｂｏｘ ″您选择的日期是?″ ＆ ｙｅａｒｎ ＆ ″年″ ＆ ｍｏｎｔｈｎ ＆ ″月″ ＆ ｄａｙｎ ＆ ″日 星期″ ＆ Ｗｅｅｋｄａｙｓ
Ｅｎｄ Ｓｕｂ
好了，ＭｏｎｔｈＶｉｅｗ的使用就讲到这里．现在，打开你的ＶＢ，快点动手试一试吧！