LOTUSSCRIPT/COM/OLE CLASSES
Examples: Using OLE custom controls
1. This example creates a new calendar control in the Body field of a new document, or accesses the existing control in an existing document, and sets the first day of the week from Sunday to Monday.
Sub Postopen(Source As Notesuidocument)
Source.EditMode = True
Call Source.GoToField("Body")
If source.IsNewDoc Then
Set Cal = Source.CreateObject _
("Calendar", _
"MSCAL.Calendar.7")
Else
Set Cal = Source.GetObject _
("Calendar")
End If
Cal.FirstDay = 2
End Sub
2. This example handles the Click event for a calendar control component inserted in the form through the UI. The script displays the date which the user clicks on in the calendar control.
Sub Click(Source As Calendar)
Messagebox "You clicked on the following date: "_
& Source.Month &"/" & Source.Day &"/"_
& Source.Year
End Sub
See Also
Using OLE custom controls
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary