LOTUSSCRIPT /COM/OLE のクラス

例:FontFace プロパティ
次のエージェントは、フォントを Helvetica から Default Sans Serif (Default Sans Serif から Helvetica) に切り替えます。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim vc As NotesViewColumn
 Set db = session.CurrentDatabase
 Set view = db.GetView("Categorized")
 Set vc = view.Columns(0)
 If vc.FontFace = "Default Sans Serif" Then
   vc.FontFace = "Helvetica"
 Else
   vc.FontFace = "Default Sans Serif"
 End If
 Messagebox vc.FontFace,, "Font face changed to ..."
End Sub

関連項目