VB.NET DateTimePicker 控件

2025年3月17日 | 阅读 3 分钟

DateTimePicker 控件允许用户以指定的格式在 Windows Forms 中选择或显示日期和时间值。此外，我们可以使用 DateTimePicker 控件的 Value 属性来确定当前的日期和时间。默认情况下，Value 属性返回 DateTimePicker 中的当前日期和时间。

让我们按照以下步骤在 VB.NET Windows 表单中创建一个 DateTimePicker 控件。

步骤 1： 第一步是将 DateTimePicker 控件从工具箱拖到表单上。

步骤 2： 将 DateTimePicker 添加到表单后，我们可以通过单击 DateTimePicker 控件来设置 DateTimePicker 的各种属性。

注意：DateTimePicker 控件的 MinDate 和 MaxDate 属性允许用户设置日期范围的限制。

DateTimePicker 控件的属性

以下是 VB.NET DateTimePicker 控件的一些属性。

属性	描述
BackgroundImage（背景图片）	它用于设置 DateTimePicker 控件的背景图像。
CalendarFont	它用于设置 DateTimePicker 控件中日历的字体样式。
CustomFormat	CustomFormat 属性用于在 DateTimePicker 控件中设置自定义日期和时间格式字符串。
控制	它用于获取 DateTimePicker 控件中存储的控件集合。
Checked (选中)	checked 属性用于检查 Value 属性是否在 DateTimePicker 控件中设置为有效的日期和时间。
格式	DateTimePicker 的 Format 属性用于设置在 Windows Form 中显示的日期和时间的格式。
MaxDate	MaxDate 属性用于设置用户在控件中选择的最大数据和时间。
名称	DateTimePicker 控件的 Name 属性允许用户设置控件的名称。
MinimumDateTime	它用于设置控件可以允许的最小日期值。

DateTimePicker 控件的方法

以下是 VB.NET DateTimePicker 控件的一些方法。

方法	描述
Contains(Control)	它用于验证指定的控件是否是 DateTimePicker 控件的子控件。
CreateControl()	它用于强制创建可见控件以处理创建和任何可见的子控件。
GetAutoSizeMode()	GetAutoSizeMode() 方法用于检查 DateTimePicker 控件在启用 AutoAize 属性时的行为。
ResetBackColor()	它用于重置 DateTimePicker 控件的背景颜色。
Select()	Select() 方法用于启动或激活 DateTimePicker 控件。
Show()	Show() 方法用于向用户显示控件。
ToString()	ToString() 方法用于返回表示当前 DateTimePicker 控件的字符串。

此外，我们还可以参考 VB.NET Microsoft 文档以获取 DateTimePicker 控件属性和方法在 VB.NET 中的完整列表。

让我们在 VB.NET 表单中创建一个 DateTimePicker 控件的程序。

DateTime.vb

Public Class DateTime
    Private Sub DateTime_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatpoint.com"
        Button1.Text = "Calculate Days"
        Label1.Text = "Calculate the total days from your date of birth to the current date."
        Label2.Text = "Total Days"
        Label3.Text = "Select the DOB"
        Label4.Text = "Current Date"
        DateTimePicker1.Format = DateTimePickerFormat.Long
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dp As Date = DateTimePicker1.Value
        Dim dp2 As Date = DateTimePicker2.Value
        Dim result As TimeSpan = dp.Subtract(dp2)
        Dim ds As Integer = result.TotalDays
        TextBox1.Text = ds
        TextBox1.ForeColor = ForeColor.Red
        MsgBox(" Days = " & ds)
    End Sub
End Class

输出