استعمال MonthCalendar و مربع نص لاختيار التاريخ

كود :

' عند النقر على الزر

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' تمييز التاريخ الحالي حسب تاريخ الجهاز

        MonthCalendar1.TodayDate = Date.Today

        ' تحديد التاريخ الذي يشير إليه التاريخ في مربع النص

        If IsDate(Text1.Text) Then

            MonthCalendar1.SelectionStart = CType(Text1.Text, Date)

        Else

            MonthCalendar1.SelectionStart = Date.Today

        End If

        ' ضبط موقع التقويم ليكون تحت مربع النص

        MonthCalendar1.Left = Text1.Left

        MonthCalendar1.Top = Text1.Top + Text1.Height

        ' إظهار التقويم و وضع التركيز عليه

        MonthCalendar1.Visible = True

        MonthCalendar1.Focus()

    End Sub

    Private Sub MonthCalendar1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthCalendar1.Leave

        ' عند مغادرة التقويم، يتم إخفاؤه

        MonthCalendar1.Visible = False

    End Sub

    Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected

        ' عند اختيار تاريخ (بالنقر عليه بتحديده بالأسهم ثم ضغط المفتاح إنتر) ننسخ التاريخ المحدد إلى مربع النص

        Text1.Text = e.Start.ToString("dd/MM/yyyy")

        ' نعيد التركيز إلى مربع النص

        Text1.Focus()

    End Sub

    Private Sub Text1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Text1.KeyDown

        If (e.Modifiers = Keys.None) And (e.KeyCode = Keys.F4) Then

            ' في مربع النص نعرض التقويم F4 عند ضغط المفتاح

            Button1.PerformClick()

        ElseIf (e.Modifiers = Keys.None) And (e.KeyCode = Keys.Delete) Then

            ' في مربع النص نمسح التاريخ Delete عند ضغط المفتاح

            Text1.Text = ""

        End If

    End Sub