LOTUSSCRIPT /COM/OLE のクラス

例:Clear メソッド
次のスクリプトは現在のフィールドの内容を削除します。現在のフィールドが空だと何もしません。

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 If ( uidoc.FieldGetText( uidoc.CurrentField ) <> "" ) Then
   Call uidoc.SelectAll
   Call uidoc.Clear
 End If
End Sub

関連項目