LOTUS CONNECTOR

例:SilentMode プロパティ
次のボタンスクリプトは、ユーザーの指示に従って SilentMode プロパティを切り替えます。ODBCConnection オブジェクトは、ボタンの呼び出しの間の状態を残すために、グローバルでなければなりません。

Uselsx "*LSXODBC"
%INCLUDE "lsconst.lss"

Dim con As ODBCConnection

Sub Postopen(Source As Notesuidocument)
 Set con = New ODBCConnection
End Sub

Sub Click(Source As Button)
 If con.SilentMode Then
   If(Messagebox("Do you want to turn it off", _
   MB_YESNO, "SilentMode is on") = IDYES) Then
     con.SilentMode = False
   End If
 Else
   If(Messagebox("Do you want to turn it on", _
   MB_YESNO, "SilentMode is off") = IDYES) Then
     con.SilentMode = True
   End If
 End If
End Sub

関連項目