VB.net DateTimePicker 初始化为空,选择后显示日期

时间:2024-04-02 08:36:32

目的:当某记录的日期数据为空的时候,DateTimePicker 不以默认当前时间显示。

优点:避免不规则的时间格式输入;符合平时遇到的时间输入习惯

缺点:设置要代码,没有textbox控件那么方便设置

步骤:

  1、插入控件DateTimePicker

  2、在A窗体(目标窗体)Load事件,或者 B窗体打开A窗体时 填入下列语句(我这里是使用B窗体打开A窗体)

            Dim frmSampleOrder As New frmSampleOrder
frmSampleOrder.Show()
If DataGridView1.Rows(e.RowIndex).Cells("计划发运日期").Value.ToString.Trim = "" Then
frmSampleOrder.txt计划发运日期.Format = DateTimePickerFormat.Custom
frmSampleOrder.txt计划发运日期.CustomFormat = " "
Else
frmSampleOrder.txt计划发运日期.Text = DataGridView1.Rows(e.RowIndex).Cells("计划发运日期").Value.ToString.Trim
End If

  3、在打开的A窗体中,选择DateTimePicker控件,并选择ValueChanged 事件,插入下列代码

    Private Sub txt计划发运日期_ValueChanged(sender As Object, e As EventArgs) Handles txt计划发运日期.ValueChanged
txt计划发运日期.Format = DateTimePickerFormat.Short
End Sub

  4、保存。

这就完成了一个平时常用习惯的日期选择控件