例: Clear method (NotesUIDocument - LotusScript®)

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

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

追加の資料 | 商標 (英語) |