24 lines
814 B
VB.net
24 lines
814 B
VB.net
Public Class frmcalendar
|
|
Public dt As DateTime
|
|
|
|
Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub MonthCalendar1_DoubleClick(sender As Object, e As EventArgs) Handles MonthCalendar1.DoubleClick
|
|
dt = MonthCalendar1.SelectionRange.Start
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MonthCalendar1_KeyDown(sender As Object, e As KeyEventArgs) Handles MonthCalendar1.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
dt = MonthCalendar1.SelectionRange.Start
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.dt = Me.MonthCalendar1.SelectionRange.Start
|
|
Me.Close()
|
|
End Sub
|
|
End Class |