MonthView控件

简介

属性

方法

事件

使用实例

简介

MonthView 控件可以用来创建一个能够让用户通过日历风格的界面查看和设置日期信息的应用程序。

MonthView 控件的 Value 属性返回当前被选定的日期。

可以允许最终用户通过将 MultiSelect 属性设置为 True，并使用MaxSelProperty 指定可选择的天数来选择一个连续的日期范围。SelStart 和SelEnd 属性返回所选择的日期范围的第一个日期和最后一个日期。可以用许多方法自定义一个 MonthView 控件的外观。

可以使用各种颜色属性，例如 MonthBackColor、TitleBackColor、TitleForeColor 和 TrailingForeColor为控件创建一个唯一的配色方案。

通过设置MonthRows和MonthColumns属性，可以在一个 MonthView 控件中一次显示多个月份（多至12）。MonthRows和MonthColumns 属性的总数必须小于或等于 12。

属性

Day属性，DayOfWeek属性，DayBold属性，MaxDate, MinDate属性，MaxSelCount属性，Month属性，MonthBackColor属性，MultiSelect属性（MonthView控件），ShowToday属性，StartOfWeek属性，ScrollRate属性，SelEnd, SelStart属性（MonthView控件），ShowWeekNumbers属性，TitleBackColor，TitleForeColor属性，TrailingForeColor属性，Value属性（MonthView, DatePicker控件），VisibleDays属性，Week属性，Year属性，MonthColumns,MonthRows属性，DataMember属性，DataFormat属性，DataBindings属性，Left, Top属性，TabIndex属性，Visible属性，DragIcon属性，DragMode属性，CausesValidation属性，TabStop属性，Enabled属性，HelpContextID属性，Index属性（控件矩阵），Name属性，Parent属性，Container属性，Object属性，ToolTipText属性，DataChanged属性，DataField属性，DataSource属性，WhatsThisHelpID属性，OLEDropMode属性（ActiveX控件），Height, Width属性（ActiveX控件），Tag属性（ActiveX控件），Appearance属性（ActiveX控件），BackColor, ForeColor属性（ActiveX控件），BorderStyle属性（ActiveX控件），Enabled属性（ActiveX控件），Font属性（ActiveX控件），hWnd属性（ActiveX控件），MouseIcon属性（ActiveX控件），MousePointer属性（ActiveX控件）。

方法

HitTest方法（MonthView控件），ComputeControlSize方法，SetFocus方法，Drag方法，Move方法，ZOrder方法，ShowWhatsThis方法，Refresh方法（ActiveX控件），OLEDrag方法（ActiveX控件）Refresh方法，HitTest方法（MonthView控件），ComputerControlSize方法。

事件

DateClick事件，DateDblClick事件，GetDayBold事件，SelChance事件（MonthView控件），DragDrop事件，DragOver事件，GotFocus事件，LostFocus事件，Validate事件，OLECompleteDrag事件（ActiveX控件），OLEDragDrop事件（ActiveX控件），OLEDragOver事件（ActiveX控件），OLEGiveFeedback事件（ActiveX控件），OLESetData事件（ActiveX控件），OLEStartDrag事件（ActiveX控件），Click事件（ActiveX控件），DblClick事件（ActiveX控件），KeyDown, KeyUp事件（ActiveX控件），KeyPress事件（ActiveX控件），MouseDown, MouseUp事件（ActiveX控件），MouseMove事件（ActiveX控件）。

使用实例

ＭｏｎｔｈＶｉｅｗ（日历控件），用它可以编写出具有日历功能的程序（如图）。

下面介绍一下ＭｏｎｔｈＶｉｅｗ的用法。

１．首先，要在ＶＢ中找到ＭｏｎｔｈＶｉｅｗ控件：在“工程”菜单中选择“部件”，然后找到“Ｍｉｃｒｏｓｏｆｔ Ｗｉｎｄｏｗｓ Ｃｏｍｍｏｎ Ｃｏｎｔｒｏｌｓ ２ －６．０”，选中后按“确定”。此时，在ＶＢ的控件工具栏中会多出４个控件，ＭｏｎｔｈＶｉｅｗ就在其中。

２．将ＭｏｎｔｈＶｉｅｗ加载到窗体上并设置它的属性?右击ＭｏｎｔｈＶｉｅｗ控件，选择“属性”，然后在出现的属性页中就可以设置ＭｏｎｔｈＶｉｅｗ的各种属性了。

以下的几个属性需要说明一下：

ＭｉｎＤａｔｅ?日历所显示的最早日期?

ＭａｘＤａｔｅ?日历所显示的最晚日期；

ＳｔａｒｔＷｅｅｋ?日历显示时，作为第一列的星期号。

按照我们的习惯，星期一应在首列，所以将它设置为２－ｍｖｗＭｏｎｄａｙ。?默认值为１－ｍｖｗＳｕｎｄａｙ，也就是把星期日作为首列，这是美国人的习惯。?

ＭｏｎｔｈＲｏｗｓ和ＭｏｎｔｈＣｏｌｕｍｎｓ分别是用来同时显示的多个月份时的行和列。在例图中ＭｏｎｔｈＲｏｗｓ＝１，ＭｏｎｔｈＣｏｌｕｍｎｓ＝１，即一行一列。

当把这些属性设置好之后，一个日历就诞生了?同时，我们在编程当中还可以得到ＭｏｎｔｈＶｉｅｗ几个有用的属性的返回值。它们是：Ｙｅａｒ表示被选中的年份；Ｍｏｎｔｈ表示被选中的月份；Ｄａｙ表示被选中的日期；ＤａｙＯｆＷｅｅｋ表示被选中日期的星期号。要注意?ＤａｙＯｆＷｅｅｋ的返回值为１～７，１代表星期日，２代表星期一，以此类推。下面我们介绍一个简单的例子：

′执行下面的代码将获得ＭｏｎｔｈＶｉｅｗ的返回值

Ｐｒｉｖａｔｅ Ｓｕｂ ＭｏｎｔｈＶｉｅｗ１＿ＤａｔｅＣｌｉｃｋ?ＢｙＶａｌ ＤａｔｅＣｌｉｃｋｅｄ Ａｓ Ｄａｔｅ?

ｄａｙｎ ＝ ＭｏｎｔｈＶｉｅｗ１．Ｄａｙ

ｍｏｎｔｈｎ ＝ ＭｏｎｔｈＶｉｅｗ１．Ｍｏｎｔｈ

ｙｅａｒｎ ＝ ＭｏｎｔｈＶｉｅｗ１．Ｙｅａｒ

ｗｅｅｋｄａｙｎ ＝ ＭｏｎｔｈＶｉｅｗ１．ＤａｙＯｆＷｅｅｋ

′把ＤａｙＯｆＷｅｅｋ的返回值转换为中文。

Ｓｅｌｅｃｔ Ｃａｓｅ ｗｅｅｋｄａｙｎ

Ｃａｓｅ １

Ｗｅｅｋｄａｙｓ ＝ ″日″

Ｃａｓｅ ２

Ｗｅｅｋｄａｙｓ ＝ ″一″

Ｃａｓｅ ３

Ｗｅｅｋｄａｙｓ ＝ ″二″

Ｃａｓｅ ４

Ｗｅｅｋｄａｙｓ ＝ ″三″

Ｃａｓｅ ５

Ｗｅｅｋｄａｙｓ ＝ ″四″

Ｃａｓｅ ６

Ｗｅｅｋｄａｙｓ ＝ ″五″

Ｃａｓｅ ７

Ｗｅｅｋｄａｙｓ ＝ ″六″

Ｅｎｄ Ｓｅｌｅｃｔ

Ｍｓｇｂｏｘ ″您选择的日期是?″ ＆ ｙｅａｒｎ ＆ ″年″ ＆ ｍｏｎｔｈｎ ＆ ″月″ ＆ ｄａｙｎ ＆ ″日 星期″ ＆ Ｗｅｅｋｄａｙｓ

Ｅｎｄ Ｓｕｂ