Promotic
WikipediaLinkedInYoutubeTwitterFacebook

InputBoxForStringSelection - method of object Pm

Description:
Enables to select the string (or more substrings if the &H200 style is set) from the list in the input window.

This method is obsolete (but functional) and is replaced by the Pm.SelectionDialog method.

Syntax:
InputBoxForStringSelection(sDlgTitle As String, nStyle As Long, vValue As Variant, vStrings As Variant) As Boolean
Calling:
b = Pm.InputBoxForStringSelection("SelectString", nStyle, vValue, vStrings)
Parameters:
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.
Return Values:
true - If the window has been closed by the OK button.
false - If the window has been closed by the Cancel button.
Note:
This method is not functional for Web panels in JavaScript language (and therefore it is not working in Web panels).
Example1:
Selection of one string from the list:
VBScriptSelect and copy to clipboard

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
Example2:
Selection of multiple strings from the list, in addition values returned as indexes to the list
VBScriptSelect and copy to clipboard

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
PROMOTIC 8.3.27 SCADA system documentation - MICROSYS, spol. s r.o.

Send page remarkContact responsible person
Navigation:
 
- Pm
 
- Abs
- Cos
- E
- Exp
- InputBoxForStringSelection
 
 
- LN2
- PI
- Pow
- Sin
- Tan
© MICROSYS, spol. s r. o.Tavičská 845/21 703 00 Ostrava-Vítkovice