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