本篇介绍的两个控件与日期时间相关
13、DateTimePicker
日期选择控件,通过此控件可以直接选择日期时间
常用属性:
MinDate:可在此控件中选择的最小日期和时间,默认值(最小值)为 1/1/1753 00:00:00。
MaxDate:可在此控件中选择的最大日期和时间,默认值(最大值)为 12/31/9998 23:59:59。
Format:控件中显示的日期和时间格式,以下值之一:
Long:长日期格式显示日期/时间值。我的电脑上显示:2017年5月9日
Short:短日期格式显示日期/时间值。 我的电脑上显示:2017/5/9
Time:仅显示时间。 我的电脑上显示:22:35:03
Custom:自定义,必须设置CustomFormat使用。
CustomFormat:自定义格式,参看《 vb.net 教程 1-8 日期时间类型1 》
例如:yyyy年MM月dd日 HH时mm分ss秒,在我的电脑上显示:2017年05月09日 22时21分04秒
Value:设置/获取当前日期选择控件中的日期/时间值。
注意:这个属性实际是个DateTime类型,因此可以用DateTimePicker1.Value.Year等属性获得年、月、日等
Text:获取当前日期选择控件中的文本。
注意:这个属性在属性窗口内没有的。但是,在代码中可以使用的。
日期选择控件,通过此控件可以直接选择日期时间
常用属性:
MinDate:可在此控件中选择的最小日期和时间,默认值(最小值)为 1/1/1753 00:00:00。
MaxDate:可在此控件中选择的最大日期和时间,默认值(最大值)为 12/31/9998 23:59:59。
Format:控件中显示的日期和时间格式,以下值之一:
Long:长日期格式显示日期/时间值。我的电脑上显示:2017年5月9日
Short:短日期格式显示日期/时间值。 我的电脑上显示:2017/5/9
Time:仅显示时间。 我的电脑上显示:22:35:03
Custom:自定义,必须设置CustomFormat使用。
CustomFormat:自定义格式,参看《 vb.net 教程 1-8 日期时间类型1 》
例如:yyyy年MM月dd日 HH时mm分ss秒,在我的电脑上显示:2017年05月09日 22时21分04秒
Value:设置/获取当前日期选择控件中的日期/时间值。
注意:这个属性实际是个DateTime类型,因此可以用DateTimePicker1.Value.Year等属性获得年、月、日等
Text:获取当前日期选择控件中的文本。
注意:这个属性在属性窗口内没有的。但是,在代码中可以使用的。
参看如下代码:
Private Sub DateTimePicker1_ValueChanged(sender As Object,e As EventArgs) Handles DateTimePicker1.ValueChanged MessageBox.Show("Text属性:" & DateTimePicker1.Text & ControlChars.CrLf & "Value属性:" & DateTimePicker1.Value) End Sub运行如下:
14、MonthCalendar
月历控件,通过此控件可以在月历里面选择日期
常用属性:
CalendarDimensions:显示月份的列数和行数
ShowToday:指示控件底端是否显示 TodayDate 属性表示的日期。
ShowTodayCircle:指示是否用圆圈或正方形标识今天日期。
ShowWeekNumbers:指示月历控件是否在每行日期的左侧显示周数 (1-52)。
SelectionRange:为月历控件选定的日期范围。
SelectionStart:所选日期范围的开始日期。
SelectionEnd:选定日期范围的结束日期。
月历控件,通过此控件可以在月历里面选择日期
常用属性:
CalendarDimensions:显示月份的列数和行数
ShowToday:指示控件底端是否显示 TodayDate 属性表示的日期。
ShowTodayCircle:指示是否用圆圈或正方形标识今天日期。
ShowWeekNumbers:指示月历控件是否在每行日期的左侧显示周数 (1-52)。
SelectionRange:为月历控件选定的日期范围。
SelectionStart:所选日期范围的开始日期。
SelectionEnd:选定日期范围的结束日期。
一个简单代码:
Private Sub MonthCalendar1_DateChanged(sender As Object,e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged MessageBox.Show(MonthCalendar1.SelectionRange.Start) End Sub
运行结果如下:
学习更多vb.net知识,请参看
vb.net 教程 目录
原文链接:https://www.f2er.com/vb/256666.html