| sDlgTitle | (String) Tytuł okna edycyjnego |
|---|---|
| nStyle | (Long) Bitowe znaczniki określające typ okna oraz jego zawartość.
Liczby szesnastkowe można wprowadzić przy pomocy prefixu przed liczbą: dla JavaScript to 0x oraz dla VBScript to &H. Na przykład 0x10 lub &H10 w układzie szesnastkowym przedstawia liczbę 16 w układzie dziesiątkowym. Można wprowadzić następujące style lub ich kombinację jako sumę: &H100 - Łańcuchy w ofercie są usgregowane
&H200 - Można wybrać kilka łańcuchów z listy jednocześnie
&H20000 - Wybraną wartość zwróć jako indeks z listy
&H10000000 - Okno zostanie wyświetlone u góry nad wszystkimi oknami |
| vValue | [do odczytu i zapisu] (Variant)
Przed wywołaniem: wartość domyślna do wyboru z listy (liczba lub łańcuch tekstowy).
Po wywołaniu: wybrana wartość |
| vStrings | (Variant) Tablica łańcuchów tworząca ofertę. Patrz przykład. |
Dim Value, Strings
Value = "second"
Strings = Pm.Array1("first", "second", "third")
If Pm.InputBoxForStringSelection("Wybierz łańcuch", 0, Value, Strings) Then
' ... Łańcuch tekstowy wybrany OK
Pm.Debug Value
End If
Dim iVal, Value, Strings
Value = Pm.Array1("second", "third")
Strings = Pm.Array1("first", "second", "third")
If Pm.InputBoxForStringSelection("Wybierz łańcuch", &H200 + &H20000, Value, Strings) Then
' ... Łańcuch tekstowy wybrany OK
For iVal = 0 To UBound(Value) + 1 - 1
Pm.Debug Value(iVal)
Next
End If