I think this is what you meant:
in your main form:
CODE
Public Class Form1
Private _SelectedDate As Date
Public Property SelectedDate() As Date
Get
Return _SelectedDate
End Get
Set(ByVal value As Date)
_SelectedDate = value
txt_Date.Text = CStr(_SelectedDate.Day) & "/" & CStr(_SelectedDate.Month) & "/" & CStr(_SelectedDate.Year)
End Set
End Property
Private Sub btn_GetDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_GetDate.Click
Dim TDateSelectForm As CalendarForm
TDateSelectForm = New CalendarForm(Me)
TDateSelectForm.Show()
End Sub
End Class
and in the calendar form
CODE
Public Class CalendarForm
Private _Parent As Form
Public Sub New(ByVal parent As Form)
InitializeComponent()
_Parent = parent
End Sub
Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected
TryCast(_Parent, Form1).SelectedDate = MonthCalendar1.SelectionStart
Me.Close()
End Sub
End Class
hope thats what you wanted, it wasnt the most clear of queries.
though why didnt you want to use a DataTimePicker
20 Sep, 2007 - 10:07 PM
| 