|
Syntax |
Parameters |
|
inputbox.run( |
|
|
|
OPTIONAL sTitle AS String = "InputBox" |
|
|
, OPTIONAL sLable AS String = "" |
|
|
, OPTIONAL sReturn AS String = "" |
|
|
, OPTIONAL aButton AS String[] = ["1"] |
|
|
, OPTIONAL aParams AS String[] =[""] |
|
) AS String |
|
sTitle = Windows Titel
sLable = Lable . The Lable is a TextLable,you can format it
sReturn = possible Returnvalue
aButton = for managing Buttons
[[DefaultButton] , [Button1.Text] , [Button2.Text] , [ReturnValueButton] , [Button1.ToolTip] , [Button2.ToolTip]]
|
|
Parameter for |
Default Value |
|
|---|---|---|---|
|
1 |
[DefaultButton] |
“1” |
Who acts while pressing CR |
|
2 |
[Button1.Text] |
“&OK” |
Any Button.Text for Button1 |
|
3 |
[Button2.Text] |
“&Cancel” |
Any Button.Text for Button2 |
|
4 |
[ReturnValueButton] |
“1” |
Which returns the Value |
|
5 |
[Button1.ToolTip] |
|
Any Button.Tooltip for Button1 |
|
6 |
[Button2.ToolTip] |
|
Any Button.Tooltip for Button2 |
aParams = for managing Input
[[sComand] , [sValidChars] , [sFormat] , [iMinChars] , [iMaxChars]]
|
|
Parameter for |
Default Value |
|
|---|---|---|---|
|
1 |
[sComand] |
“” |
"FORCE" only a input who is
like [sValidChars] will return a valide result. |
|
2 |
[sValidChars] |
“” |
A Pattern of possible Chars or for "FORCE" the right word |
|
3 |
[sFormat] |
“” |
Uses gambas Format$ to return the Inputvalue |
|
4 |
[iMinChars] |
“0” |
Min. Chars to enter |
|
5 |
[iMaxChars] |
“0” |
Max. Chars to enter |
Example ( This is the PUBLIC SUB Main() from the Starter.modul of InputBox.class)
PUBLIC SUB Main()
DIM sReturn AS String
DIM sTitle AS String
DIM sLable AS String
DO WHILE sReturn <> "0"
sTitle ="choose InputBox Demo"
sLable =" 1 ) no parameters<BR> 2 ) forced use <br> 3) Password <br> 4) long lable text
<BR> 5) Numbers only<BR> 6) only Buttons<BR><BR> 9) InputBox HELP<BR> 0 ) quit"
sReturn = ""
sReturn= inputbox.Run(sTitle,sLable,sReturn,,["","01234569","","1","1"])
IF sReturn = "" THEN sReturn ="0"
SELECT CASE Val(sReturn)
CASE 1
sTitle =""
sLable =""
sReturn = ""
sReturn= inputbox.Run()
CASE 2
sTitle ="Format C:"
sLable ="type 'OK' to format your Windows Disk C:"
sReturn = ""
sReturn= inputbox.Run(sTitle,sLable,sReturn,,["FORCE","OK"])
CASE 3
sTitle ="Connecting to mySql"
sLable ="<B>Please enter your Password</B><BR><B> 6</B> chars min.<BR> <B>
8</B> chars max."
sReturn = ""
sReturn= inputbox.Run(sTitle,sLable,sReturn,,["PW","","",6,8])
CASE 4
sTitle ="Question"
sLable ="What's that strange thing here ?<BR><BR>a<BR><B>TextLable</B> <BR>with
<BR>many <BR>lines"
sReturn = "my gambas InputBox"
sReturn= inputbox.Run(sTitle,sLable,sReturn)
CASE 5
sTitle =" Numbers only"
sLable =" Numbers only ,<BR> but the Returnvalue is formated as '-#.00'"
sReturn = ""
sReturn= inputbox.Run(sTitle,sLable,sReturn,,["","0123456789.","-#.00"])
CASE 6
sReturn= inputbox.Run(,,"press a Button",["2","t&his","th&at","1",
"'this' is ReturnValueButton", "'that' it DefaultButton"])
CASE 9
sTitle ="InputBox HELP"
sLable ="type 'help' to display the InputBox HELP"
sReturn = "help"
sReturn= inputbox.Run(sTitle,sLable,sReturn,["1","&help","&exit","1",
"shows inputBox help","exit Inputbox"],["FORCE","help"])
END SELECT
IF sReturn <> "" THEN
IF sReturn <> "help" THEN
Message.Info("the returned Value = '" & sReturn & "'")
ELSE
SHELL "konqueror" & " " & Application.Path &/ "docu/inputBox.html"
ENDIF
ELSE
Message.Info("no Value returned")
ENDIF
LOOP
END