vb.net入门——MonthCalendar 控件的使用

上一篇我们了解了vb.net入门——DateTimePicker 控件的使用，在vb.net中还有另外一个用于日期设置的控件——MonthCalendar 控件(日历控件)。

MonthCalendar 控件在vb.net的工具箱中图标如下图一所示：

一、更改 MonthCalendar 控件的外观

MonthCalendar 控件允许我们使用配色、选择显示或隐藏周数和当前日期等多种方法来自定义它的外观。

1、显示周数

在“属性”窗口将 ShowWeekNumbers 属性设置为 true。

或者使用代码设置该属性，如下：

MonthCalendar1.ShowWeekNumbers = True

设置完毕后，周数以单独的列出现在一周的第一天的左边，如下图二所示：

图二：显示周数

2、在控件底部显示当前日期

将 ShowToday 属性设置为 true 则在控件的底部显示当天日期，设置为False则不显示。同时我们可以通过 TodayDateSet 属性获取 ShowToday 属性显示设置的值

而 ShowTodayCircle 属性用于指示是否在今天的日期上加一个红色的圆圈。

我们在窗体上添加一个 MonthCalendar 控件，两个Button 按钮，然后加入如下代码：

'使用Button1 控件来控制在月历控件底部 显示\不显示 当天日期。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MonthCalendar1.ShowToday = Not MonthCalendar1.ShowToday

MessageBox.Show(MonthCalendar1.TodayDateSet.ToString)

End Sub

'使用Button2 控件来控制在是否为当天日期加上红色圆圈。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MonthCalendar1.ShowTodayCircle = Not MonthCalendar1.ShowTodayCircle

End Sub

运行程序，分别单击两个按钮，观察设置效果。

我们可以通过 TodayDate 属性表示今天的日期，默认值是当前系统日期，当然我们在必要的时候也可以对它进行重新赋值。本文地址：http://www.qqread.com/book/myvbnet/my0027.html