Adding Features to GUI Scripts
The examples and the names you should assign the files are:
Example Script Assign any name to this script.
Example Header File Name the script tstHeader.sbh
Example Library Source File Name the script tstLibrary.sbl
Run this example with the example library and header files:
'Initially Recorded: 01/17/00 18:12:16
'Script Name: testscript
userInput = InputBox("Type a number:
Example Library Source File (Tstlibrary.sbl)
Run this example with the example script and header files. Be sure to compile the
library source file to an .sbx file before you run the script that calls the custom
procedure defined in the library file:
Sub compareNumbers(inputVal as Integer, constVal as Variant)
Dim txt as String
If inputVal > constVal then
txt="You typed a number greater than "
ElseIf inputVal < constVal then
txt="You typed a number less than "
txt="The number you typed equals "
MsgBox txt + constVal
Example Header File (Tstheader.sbh)
Run this example with the example script and library files:
Global userInput as Integer
Global Const NMBR as Variant
Declare Sub compareNumbers BasicLib "tstLibrary" (arg1 as Integer,
arg2 as Variant)