LOTUSSCRIPT /COM/OLE のクラス

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

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

メモ このスクリプトは常に同じメッセージを表示します。名前と説明を含む入力プロパティは、このアプリケーションの Composite 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("com.ibm.compositeapps.samples")
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