VB.Net日期控制元件（DateTimePicker）

日期控制元件(DateTimePicker)控制元件允許通過編輯控制元件中顯示的值來選擇日期和時間。如果單擊DateTimePicker控制元件中的箭頭，它將顯示一個月份日曆，如下拉式方塊控制元件。使用者可以通過點選所需日期進行選擇。新的選定值出現在控制元件的文字框部分。在表單中顯示效果如下所示 -

MinDate和MaxDate屬性用來限制日期範圍。

DateTimePicker控制元件的屬性

以下是DateTimePicker 控制元件的一些常用屬性：

編號	屬性	描述
1	`BackColor`	獲取或設定一個值，該值指示`DateTimePicker`控制元件的背景顏色。
2	`BackgroundImage`	獲取或設定控制元件的背景影象。
3	`BackgroundImageLayout`	獲取或設定`DateTimePicker`控制元件的背景影象的布局。
4	`CalendarFont`	獲取或設定應用於日曆的字型樣式。
5	`CalendarForeColor`	獲取或設定日曆的前景色。
6	`CalendarMonthBackground`	獲取或設定日曆月份的背景顏色。
7	`CalendarTitleBackColor`	獲取或設定日曆標題的背景顏色。
8	`CalendarTitleForeColor`	獲取或設定日曆標題的前景色。
9	`CalendarTrailingForeColor`	獲取或設定日歷追蹤日期的前景色。
10	`Checked`	獲取或設定一個值，該值指示`Value`屬性是否設定了有效的日期/時間值，並且可以更新顯示的值。
11	`CustomFormat`	獲取或設定自定義日期/時間格式字串。
12	`DropDownAlign`	獲取或設定`DateTimePicker`控制元件上的下拉日曆的對齊方式。
13	`ForeColor`	獲取或設定`DateTimePicker`控制元件的前景色。
14	`Format`	獲取或設定控制元件中顯示的日期和時間的格式。
15	`MaxDate`	獲取或設定控制元件中可以選擇的最大日期和時間。
16	`MaximumDateTime`	獲取`DateTimePicker`控制元件允許的最大日期值。
17	`MinDate`	獲取或設定控制元件中可以選擇的最小日期和時間。
18	`MinimumDateTime`	獲取`DateTimePicker`控制元件允許的最小日期值。
19	`PreferredHeight`	獲取`DateTimePicker`控制元件的首選高度。
20	`RightToLeftLayout`	獲取或設定`DateTimePicker`的內容是否從右向左排列。
21	`ShowCheckBox`	獲取或設定一個值，該值指示核取方塊是否顯示在所選日期的左側。
22	`ShowUpDown`	獲取或設定一個值，該值指示是否使用旋鈕控制元件(也稱為上下控制元件)來調整日期/時間值。
23	`Text`	獲取或設定與此控制元件關聯的文字。
24	`Value`	獲取或設定分配給控制元件的日期/時間值。

DateTimePicker控制元件的方法

以下是DateTimePicker控制元件的一些常用方法：

編號	方法	描述
1	`ToString`	返回表示控制元件的字串。

編號	事件	描述
1	`BackColorChanged`	在`BackColor`屬性的值更改時發生。
2	`BackgroundImageChanged`	在`BackgroundImage`屬性的值更改時發生。
3	`BackgroundImageLayoutChanged`	在`BackgroundImageLayout`屬性的值更改時發生。
4	`Click`	在單擊控制元件時發生。
5	`CloseUp`	當下拉日曆被收起關閉並消失時發生。
6	`DoubleClick`	在雙擊控制元件時發生。
7	`DragDrop`	在拖放操作完成時發生。
8	`ForeColorChanged`	在`ForeColor`屬性的值更改時發生。
9	`FormatChanged`	在`Format`屬性值更改時發生。
10	`MouseClick`	在用滑鼠單擊控制元件時發生。
11	`MouseDoubleClick`	在用滑鼠雙擊控制元件時發生。
12	`PaddingChanged`	在`Padding`屬性的值更改時發生。
13	`Paint`	在控制元件重繪時發生。
14	`RightToLeftLayoutChanged`	在`RightToLeftLayout`屬性更改時發生。
15	`TextChanged`	在`Text`屬性的值發生更改時發生。
16	`ValueChanged`	在`Value`屬性更改時發生。

範例

在這個例子中，建立一個計算假期的小應用程式。在表單上新增兩個DateTimePicker控制元件，使用者將在其中輸入休假日期和加入日期。另一個按鈕控制元件來執行計算和適當的標籤控制元件來顯示資訊。

設計的表單檢視：

在程式碼編輯器視窗中新增以下程式碼：

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Set the caption bar text of the form.  
        Me.Text = "DateTimePicker範例 - tw511.com"
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim d1 As DateTime = DateTimePicker1.Value
        Dim d2 As DateTime = DateTimePicker2.Value
        Dim result As TimeSpan = d2.Subtract(d1)
        Dim days As Integer = result.TotalDays
        Label1.Text = "共 " + days.ToString + " 天"
    End Sub
End Class

當上面的程式碼執行並使用Microsoft Visual Studio工具列上的「開始」按鈕執行時，它將顯示以下視窗：

選擇兩個日期，然後點選按鈕以進行計算：