sDlgTitle | (String) Tytuł okna edycyjnego |
---|---|
nStyle | (Long) Bitowe znaczniki określające typ okna oraz jego zawartość.
Liczby szesnastkowe można wprowadzić za pomocą 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)
przy wywołaniu: 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 = Array("first", "second", "third")
If Pm.InputBoxForStringSelection("Wybierz łańcuch", 0, Value, Strings) Then
' ... Łańcuch tekstowy wybrany OK
Pm.Debug Value
End If
Dim i, Value, Strings
Value = Array("second", "third")
Strings = Array("first", "second", "third")
If Pm.InputBoxForStringSelection("Wybierz łańcuch", &H200 + &H20000, Value, Strings) Then
' ... Łańcuch tekstowy wybrany OK
For i = 0 To UBound(Value) + 1 - 1
Pm.Debug Value(i)
Next
End If