LOTUSSCRIPT /COM/OLE のクラス
例:PickListStrings メソッド
1. 次の例は、ユーザーがリソースを 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
2. 次の例は、データベースの [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
関連項目
PickListStrings メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集