Calendar Control 2

[bighavlo]

Does anyone know how to use the Calendar Control that comes with VB6?? Specificly how to program a reaction when a certain date is clicked?? - Thanks for the help

 

[Swi]

Private Sub Calendar1_Click()
If Calendar1.Value = Date Then
MsgBox "Today is " & Calendar1.Value
Else
MsgBox Calendar1.Value
End If
End Sub

Swi

 

[bjd4jc]

In the click event the value property will contain the date the user clicks on.

You may also want to check out the monthview control in Windows Common Controls 2. I find it much easier to use.

 

[bighavlo]

How can I read from the click event??

 

[Swi]

As my example shows and bjd4jc has explained the '.Value' property of the calendar control will contain the date the user clicked on.

Swi

 

[bighavlo]

I understand what you guys are saying now. - Thanks much, I've searched all over for this. -

 

[Swi]

No problem. Glad to help.

Swi

 

[bighavlo]

How about adding text or drag and drop controls into those dates on the calender??