Maybe you can use BINDEVENT().
<
>
oform1=NEWOBJECT("form1")
BINDEVENT(oform1.OLECONTROL1,"SelectionChange",oform1,"DisplaySelectedDate")
oform1.Show
PROCEDURE DisplaySelectedDate
IF TYPE("this.olecontrol1.selecteddate")#"U"
MESSAGEBOX(this.olecontrol1.selecteddate)
ENDIF
ENDPROC
<>
>Hi Mike,
>
>Using the code below, do you know how to determine what date is currently selected on the calendar? For example, if I run the code below and then click on GOTO date and enter 09/01/2006 the calendar goes to the correct date, but how to display that value (the current selected date in the calendar control) in a separate label on the form?
>
>
>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>DEFINE CLASS form1 AS form
> Top = 0
> Left = 0
> Height = 506
> Width = 840
> DoCreate = .T.
> Caption = "Calendar Example Form"
> Name = "ouform"
> ADD OBJECT label1 AS label WITH ;
> TOP = 8, ;
> LEFT = 180, ;
> HEIGHT = 30, ;
> WIDTH = 260, ;
> NAME = 'label1',;
> FONTSIZE = 16, ;
> CAPTION = "Today's Date: "+DTOC(DATE())
> ADD OBJECT olecontrol1 AS olecontrol WITH ;
> Top = 62, ;
> Left = 5, ;
> Height = 420, ;
> Width = 550, ;
> Name = "Olecontrol1", ;
> OleClass = "OVCtl.OVCtl.1"
> ADD OBJECT command1 AS commandbutton WITH ;
> AutoSize = .T., ;
> Top = 254, ;
> Left = 568, ;
> Height = 27, ;
> Width = 115, ;
> Caption = "New Appointment", ;
> Name = "Command1"
> ADD OBJECT command2 AS commandbutton WITH ;
> AutoSize = .T., ;
> Top = 302, ;
> Left = 568, ;
> Height = 27, ;
> Width = 95, ;
> Caption = "Address Book", ;
> Name = "Command2"
> ADD OBJECT cmdbutton AS commandbutton WITH ;
> Top = 350, ;
> LEFT = 568,;
> WIDTH = 75,;
> HEIGHT = 27,;
> NAME = 'cmdbutton',;
> caption = 'GOTO Date'
> ADD OBJECT optiongroup1 AS optiongroup WITH ;
> AutoSize = .F., ;
> ButtonCount = 7, ;
> Value = 1, ;
> Height = 141, ;
> Left = 568, ;
> Top = 74, ;
> Width = 240, ;
> Name = "Optiongroup1", ;
> Option1.Caption = "Day/Week/Month", ;
> Option1.Value = 1, ;
> Option1.Height = 17, ;
> Option1.Left = 5, ;
> Option1.Style = 0, ;
> Option1.Top = 5, ;
> Option1.Width = 204, ;
> Option1.AutoSize = .F., ;
> Option1.Name = "Option1", ;
> Option2.Caption = "Day/Week/Month View With AutoPreview", ;
> Option2.Height = 17, ;
> Option2.Left = 5, ;
> Option2.Style = 0, ;
> Option2.Top = 24, ;
> Option2.Width = 235, ;
> Option2.AutoSize = .T., ;
> Option2.Name = "Option2", ;
> Option3.Caption = "Active Appointments", ;
> Option3.Height = 17, ;
> Option3.Left = 5, ;
> Option3.Style = 0, ;
> Option3.Top = 43, ;
> Option3.Width = 204, ;
> Option3.AutoSize = .F., ;
> Option3.Name = "Option3", ;
> Option4.Caption = "Events", ;
> Option4.Height = 17, ;
> Option4.Left = 5, ;
> Option4.Style = 0, ;
> Option4.Top = 62, ;
> Option4.Width = 204, ;
> Option4.AutoSize = .F., ;
> Option4.Name = "Option4", ;
> Option5.Caption = "Annual Events", ;
> Option5.Height = 17, ;
> Option5.Left = 5, ;
> Option5.Style = 0, ;
> Option5.Top = 81, ;
> Option5.Width = 204, ;
> Option5.AutoSize = .F., ;
> Option5.Name = "Option5", ;
> Option6.Caption = "Recurring Appointments", ;
> Option6.Height = 17, ;
> Option6.Left = 5, ;
> Option6.Style = 0, ;
> Option6.Top = 100, ;
> Option6.Width = 204, ;
> Option6.AutoSize = .F., ;
> Option6.Name = "Option6", ;
> Option7.Caption = "By Category", ;
> Option7.Height = 17, ;
> Option7.Left = 5, ;
> Option7.Style = 0, ;
> Option7.Top = 119, ;
> Option7.Width = 204, ;
> Option7.AutoSize = .F., ;
> Option7.Name = "Option7"
> PROCEDURE Init
> thisform.oLECONTROL1.Folder="Calendar"
> thisform.oLECONTROL1.gotoDate("01/01/2000")
> ENDPROC
> PROCEDURE command1.Click
> thisform.OLECONTROL1.newAppointment()
> ENDPROC
> PROCEDURE command2.Click
> thisform.OLECONTROL1.addressbook()
> ENDPROC
> PROCEDURE optiongroup1.Option1.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE optiongroup1.Option2.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE optiongroup1.Option3.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE optiongroup1.Option4.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE optiongroup1.Option5.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE optiongroup1.Option6.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE optiongroup1.Option7.Click
> thisform.OLECONTROL1.view = this.Caption
> ENDPROC
> PROCEDURE cmdbutton.click
> mydate = DTOC(DATE())
> mydate = INPUTBOX('Enter date: ','GOTO date',mydate)
> IF TYPE('mydate') = "C" .and. CTOD(mydate) > {}
> thisform.OLECONTROL1.gotoDate(mydate)
> ELSE
> MESSAGEBOX('Invalid Date Entered.')
> ENDIF
> thisform.OLECONTROL1.setfocus()
> ENDPROC
>ENDDEFINE
>
