LOTUSSCRIPT /COM/OLE のクラス

例:BackgroundColor プロパティ
次のエージェントは、ビューの背景色を 3 色の中で切り替えます。

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = s.CurrentDatabase
Set view = db.GetView("Topics")
If view.BackgroundColor = COLOR_LIGHT_GRAY Then
view.BackgroundColor = COLOR_YELLOW
Messagebox "Yellow",, "New color is ..."
Elseif view.BackgroundColor = COLOR_YELLOW Then
view.BackgroundColor = COLOR_WHITE
Messagebox "White",, "New color is ..."
Else
view.BackgroundColor = COLOR_LIGHT_GRAY
Messagebox "Light gray",, "New color is ..."
End If
End Sub

関連項目