LOTUSSCRIPT /COM/OLE のクラス

例:ListSep プロパティ
次のエージェントは、列の分離記号を切り替えます。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim vc As NotesViewColumn
 Dim f As String
 Set db = session.CurrentDatabase
 Set view = db.GetView("View A")
 Set vc = view.Columns(1)
 If vc.ListSep = VC_SEP_COMMA Then
   vc.ListSep = VC_SEP_NEWLINE
   f = "Newline"
 Elseif vc.ListSep = VC_SEP_NEWLINE Then
   vc.ListSep = VC_SEP_NONE
   f = "None"
 Elseif vc.ListSep = VC_SEP_NONE Then
   vc.ListSep = VC_SEP_SEMICOLON
   f = "Semicolon"
 Elseif vc.ListSep = VC_SEP_SEMICOLON Then
   vc.ListSep = VC_SEP_SPACE
   f = "Space"
 Else
   vc.ListSep = VC_SEP_COMMA
   f = "Comma"
 End If
 Messagebox f,, "New list separator"
End Sub

関連項目