LOTUSSCRIPT/COM/OLE CLASSES
Examples: PickListStrings method
1. This example displays the resources dialog box and allows the user to select one resource. A message box shows the user's selection.
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. This example displays a custom dialog box showing only the documents that appear under the Procedures category in the By Category view of a database. The user may select multiple documents. The text from column 4 is displayed.
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
See Also
PickListStrings method
Glossary
Feedback on Help?
Help on Help
Open Full Help Window
Glossary
Feedback on Help?
Help on Help
Open Full Help Window