LOTUSSCRIPT /COM/OLE のクラス

例:DisplayAlternateNames プロパティ
次のフォームアクションは、DisplayAlternateNames プロパティを切り替えます。

%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")
If Messagebox("Do you want to change this setting?", _
MB_YESNO + MB_QUESTION, _
"DisplayAlternateNames is " + _
uis.DisplayAlternateNames) = IDYES Then
uis.DisplayAlternateNames = NOT uis.DisplayAlternateNames
End If
End Sub

関連項目