LOTUSSCRIPT /COM/OLE のクラス

例:GetFieldType メソッド
次のエージェントは、[Main Topic] フォームにあるすべてのフィールドの種類を表示します。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 Dim form As NotesForm
 Set form = db.GetForm("Main Topic")
 Forall field In form.Fields
   Select Case form.GetFieldType(field)
   Case AUTHORS :fieldType = "Authors"
   Case DATETIMES :fieldType = "DateTime"
   Case NAMES :fieldType = "Names"
   Case NUMBERS :fieldType = "Number"
   Case READERS :fieldType = "Readers"
   Case RICHTEXT :fieldType = "Rich text"
   Case TEXT :fieldType = "Text"
   Case Else
     fieldType = "Other " & form.GetFieldType(field)
   End Select
   Messagebox fieldType,, field
 End Forall
End Sub

関連項目