LOTUSSCRIPT/COM/OLE CLASSES


Examples: DisplayHoursPerDay property
This form action changes the DisplayHoursPerDay property.

%INCLUDE "lsconst.lss"

Sub Click(Source As Button)
 Dim ws As NotesUIWorkspace
 Dim uid As NotesUIDocument
 Dim uis As NotesUIScheduler
 Set ws = New NotesUIWorkspace
 Set uid = ws.CurrentDocument
 Set uis = uid.GetSchedulerObject("Main")
 i = Inputbox("If you want, change and press OK", _
 "DisplayHoursPerDay", _
 uis.DisplayHoursPerDay)
 If i <> "" And i <> uis.DisplayHoursPerDay Then
   uis.DisplayHoursPerDay = i
 End If
End Sub

See Also