例: PickListStrings method

次の例は、ユーザーがリソースを 1 つ選択できる [リソース] ダイアログボックスを表示します。メッセージボックスには、ユーザーが選択したリソースが表示されます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim picklist As Variant
  Dim messagelist As String
  picklist = workspace.PickListStrings( PICKLIST_RESOURCES )
  If ( Isempty( picklist ) ) Then 
    Messagebox "Canceled" , , "Resource selected"
  Else
    Forall plist In picklist
      messagelist = messagelist & plist & Chr(10)
    End Forall
    Messagebox messagelist  , , "Resource selected"
  End If
End Sub

次の例は、データベースの [By Category] ビューの「Procedures」カテゴリの下にある文書のみを表示するカスタムダイアログボックスを表示します。ユーザーは複数の文書を選択できます。列 4 のテキストが表示されます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim picklist As Variant
  Dim messagelist As String
  picklist = workspace.PickListStrings( _
  PICKLIST_CUSTOM, _
  True, _
  "snapper", _
  "ProgWork2", _
  "By Category", _
  "Document picker", _
  "Please select some documents.", _
  4, _
  "Procedures" ) 
  Forall plist In picklist
    messagelist = messagelist & plist & Chr(10)
  End Forall
  Messagebox messagelist
End Sub