LOTUSSCRIPT /COM/OLE のクラス

例:Isinput プロパティ
このスクリプトは、フィールド名 Propname で名前が付けられたプロパティが入力プロパティかどうかを検査します。

このスクリプトは、Lotus Notes フォームまたはビューアクションから出てきます。Property Broker は、複合アプリケーションの別のコンポーネントによって発行されたプロパティ変更を受け取るとこのスクリプトを呼び出すため、このスクリプトが実行されます。スクリプトは、Property Broker に変更されたプロパティを尋ね、そのプロパティの名前と説明を表示します。

メモ このスクリプトは常に同じメッセージを表示します。名前と説明を含む入力プロパティは、このアプリケーションの Wiring Properties 設計要素で定義された WSDL アクションに関連しているためです。プロパティを公開したコンポーネントは別の名前と説明を使用する場合がありますが、その情報を取り出す方法はありません。

Sub Click(Source As Button)
Dim s As New NotesSession
Dim workspace As New NotesUIWorkspace
If workspace.IsEmbeddedInsideWCT Then

 Dim pb As NotesPropertyBroker
 Set pb = s.GetPropertyBroker()
 Dim pbProperty As NotesProperty
 Dim PropertyName As String
 Dim PropertyIsInput As String
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument

 PropertyName = uidoc.Propname(0)
 pbProperty = pb.GetPropertyValue(PropertyName)

 If pbProperty.Isinput Then
   PropertyIsInput = " is an input property"
 Else
   PropertyIsInput = " is NOT an input property"
 End If
 Messagebox PropertyName + PropertyIsInput, MB_OK, "Isinput"
Else
 Messagebox "Wrong Configuration", MB_OK, "Basic Configuration"
End If
End Sub