Tato metoda je zastaralá (ale funkční) a je nahrazena metodou Pm.SelectionDialog.
b = Pm.InputBoxForStringSelection("SelectString", nStyle, vValue, vStrings)| sDlgTitle | (String) Nadpis zadávacího okna |
|---|---|
| nStyle | (Long) Bitové příznaky určující typ okna a jeho obsah. Hexadecimální čísla lze zadat pomocí prefixu před číslem: pro JavaScript je to 0x a pro VBScript je to &H. Například 0x10 nebo &H10 v hexadecimální notaci představuje 16 v desítkové soustavě. Lze zadat následující styly nebo jejich kombinace jako součet: &H100 - Řetězce v nabídce jsou setříděny &H200 - Lze vybrat více řetězců z nabídky najednou &H20000 - Vybranou hodnotu vrátit jako index z nabídky &H10000000 - Okno se zobrazí nahoře nad všemi okny |
| vValue | [pro čtení i zápis] (Variant) při volání: přednastavená hodnota pro výběr z nabídky (zadaná číslem nebo řetězcem) po volání: vybraná hodnota |
| vStrings | (Variant) Pole řetězců tvořící nabídku. Viz příklad. |
Dim Value, Strings
Value = "second"
Strings = Array("first", "second", "third")
If Pm.InputBoxForStringSelection("Vyberte řetězec", 0, Value, Strings) Then
'... Řetězec vybrán OK
Pm.Debug Value
End If
Dim i, Value, Strings
Value = Array("second", "third")
Strings = Array("first", "second", "third")
If Pm.InputBoxForStringSelection("Vyberte řetězec", &H200+&H20000, Value, Strings) Then
'... Řetězec vybrán OK
For i = 0 To UBound(Value)
Pm.Debug Value(i)
Next
End If