例: Isinput property

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

このスクリプトは、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