HX-PGS-ERP_New/10、背景程式與對話�.../輸入日期.vb

Public Class 輸入日期
    Private Sub 輸入日期_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 輸入日期_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        日期_dtp.Format = DateTimePickerFormat.Custom : 日期_dtp.CustomFormat = " "
    End Sub
    Private Sub 日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 日期_dtp.MouseDown
        日期_dtp.Format = DateTimePickerFormat.Short
    End Sub
    Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
        If 日期_dtp.Text = "" Or 日期_dtp.Text = " " Then : Else
            PA = Strings.Format(日期_dtp.Value, "yyyy/MM/dd") : Me.Close()
        End If
    End Sub
End Class