VB入门教程：[21]显示日期

在本课中，您将学习如何在Windows窗体上显示日期。您还将学习如何在用户选择日期时执行操作。当使用显示日历的控件时，该控件使用户能够轻松选择日期。使用这些控件还可以确保日期的格式正确。可以使用MonthCalendar控件或DateTimePicker控件显示日历。

工具/原料

电脑一台

VB2008

了解MonthCalendar和DateTimePicker控件

1、MonthCalendar控件可让您显示一个或多个月的日历。如果您使用此控件，则用户可以选择单个日期或一个日期范围。

2、DateTimePicker控件有两种状态。默认情况下，DateTimePicker控件以文本框形式出现，并带有一个下拉箭头。用户单击下拉箭头时，会出现一个日历。如果您使用此控件，则用户只可以选择单个日期。DateTimePicker控件还使您能够显示时间而不是日期。

3、用于从这些控件中检索日期的过程根据所使用的控件而不同。使用MonthCalendar控件的Start属性，并使用DateTimePicker控件的Value属性。

试一试【检索日期并在标签中显示】

1、新建一个项目。单击“Windows窗体应用程序”，然后单击“确定”。将“Label”控件添加到窗体中，保留默认名称“Label1”。移除“Label”控件的“Text”属性中的文本。将“MonthCalendar”控件添加到窗体中，保留默认名称“MonthCalendar1”。

2、双击“MonthCalendar”控件以便在代码编辑器中输入默认事件处理程序。在Mont丝群闻栝hCalendar1_D锾攒揉敫ateChanged事件处理程序中，添加下列代码以向列表添加项。Me.Label1.Text=CStr(Me.MonthCalendar1.SelectionRange.Start)

3、返回设计器砷啼硎实视图，并将“DateTimePicker”控件添加到窗体中，保留默认名称“DateTimePicker1”。双击“DateTimePicker”控件以便在代码编辑器蒗钰妒蟥中输入默认事件处理程序。在DateTimePicker_ValueChanged事件处理程序中，添加下列代码以向列表添加项。Me.Label1.Text=CStr(Me.DateTimePicker1.Value)

4、运行程序。当窗体出现时，单击“MonthCalendar”控件中的日期，然后验证该日期是否会显示在标签中。单击“DateTimePicker”控件的下拉箭头并选择日期。日期和时间将显示在标签中。关闭程序。

检索多个日期

1、将MonthCalendar1_DateChanged事件处理程序中的代码阌毡驰璨更改为以下代码。此代码将设置着抹较氰控件中可选择的最大天数（两周）。如果仅选择了一天，则在标签中显示开始日期；如果在“MonthCalendar”控件中选择了一个范围，则显示相应的日期范围。Me.MonthCalendar1.MaxSelectionCount=14IfMe.MonthCalendar1.SelectionRange.Start=_Me.MonthCalendar1.SelectionRange.EndThenMe.Label1.Text=CStr(Me.MonthCalendar1.SelectionStart)ElseMe.Label1.Text=Me.MonthCalendar1.SelectionRange.Start&_"-"&Me.MonthCalendar1.SelectionRange.EndEndIf

2、运行程序。当窗体出现时，在“MonthCalendar”控件中选择日期范围，然后验证该日期范围是否会显示在标签中。关闭程序。

设置日期格式

1、可以通过使用FormatDateTime函数为MonthCalendar控件和DateTimePicker控件返回的日期设置格式。可以使用一些常数来指示日期的格式：

2、将MonthCalendar1_DateChanged事件处理程序中的代码阌毡驰璨更改为以下代码。此代码将返回鹚兢尖睁的日期设置为长日期格式。Me.MonthCalendar1.MaxSelectionCount=14IfMe.MonthCalendar1.SelectionRange.Start=_Me.MonthCalendar1.SelectionRange.EndThenMe.Label1.Text=FormatDateTime(_Me.MonthCalendar1.SelectionStart,_DateFormat.LongDate)ElseMe.Label1.Text=FormatDateTime(_Me.MonthCalendar1.SelectionRange.Start,_DateFormat.LongDate)&"-"&FormatDateTime(_Me.MonthCalendar1.SelectionRange.End,DateFormat.LongDate)EndIf

3、将DatePicker1_ValueChanged事件处理程序中的代码更改僭轿魍儿为以下代码。此代码将返回的日期设置为长日亏坚橘锝期格式。Me.Label1.Text=FormatDateTime(Me.DateTimePicker1.Value,_DateFormat.LongDate)

4、运行程序。当窗体出现时，单击“MonthCalendar”控件中的单个日期或日期范围。验证该日期或日期范围是否会在标签中以长日期格式显示。单击“DateTimePicker”控件中的日期，并验证该日期是否会在标签中以长日期格式显示。关闭程序。

5、在本课中，您学习了如何检索MonthCalendar和DateTimePicker控件中选择的日期并在Windows窗体上显示它们。您还学习了如何显示日期范围以及如何设置检索到的日期的格式。在下一课中，您将学习如何使用数据控件。