LOTUSSCRIPT /COM/OLE のクラス

例:TimeFmt プロパティ
次のエージェントは、列の時刻形式を切り替えます。

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("All Documents")
 Set vc = view.Columns(0)
 If vc.TimeFmt = VC_FMT_HMS Then
   vc.TimeFmt = VC_FMT_HM
   f = "Hour + minute"
 Elseif vc.TimeFmt = VC_FMT_HM Then
   vc.TimeFmt = VC_FMT_H
   f = "Hour"
 Elseif vc.TimeFmt = VC_FMT_H Then
   vc.TimeFmt = VC_FMT_ALL
   f = "Hour + minute + second + hundredths"
 Else
   vc.TimeFmt = VC_FMT_HMS
   f = "Hour + minute + second"
 End If
 Messagebox f,, "New time format"
End Sub

関連項目