This method is obsolete (but functional) and is replaced by the Pm.SelectionDialog method.
b = Pm.InputBoxForStringSelection("SelectString", nStyle, vValue, vStrings)
sDlgTitle | (String) Title of the input window |
---|---|
nStyle | (Long) Bit attributes definig window type and content. Hexadecimal numbers can be entered by adding a prefix: for JavaScript it is 0x and for VBScript it is &H. For example, 0x10 or &H10 represents decimal 16 in hexadecimal notation. It is possible to enter the following styles or their combinations as a sum: &H100 - String are sorted out in the list &H200 - It is possible to select multiple strings from the list &H20000 - Return the selected value as the index from the list &H10000000 - Window will be displayed on top of all windows |
vValue | [for read and write] (Variant) on the calling: the preset value for the selection from the list (entered by the number or the string) after the calling: the selected value |
vStrings | (Variant) String array making the list. See the example. |
Dim Value, Strings
Value = "second"
Strings = Array("first", "second", "third")
If Pm.InputBoxForStringSelection("Choose the string", 0, Value, Strings) Then
'... String selected OK
Pm.Debug Value
End If
Dim i, Value, Strings
Value = Array("second", "third")
Strings = Array("first", "second", "third")
If Pm.InputBoxForStringSelection("Choose the string", &H200+&H20000, Value, Strings) Then
'... String selected OK
For i = 0 To UBound(Value)
Pm.Debug Value(i)
Next
End If