 |
BCX Console Demonstration Program S18.bas
|
DIM
i
DO
i =
MSGBOX
(
"This is a message"
, "BCX Demo"
, 3
+
64
)
' 3 = YNC, 64 = Info Icon
SELECT
CASE
i
CASE
2
MSGBOX
"You Pressed CANCEL !"
, "BCX Demo"
, 1
: END
CASE
6
MSGBOX
"You Pressed YES !"
, "BCX Demo"
, 1
CASE
7
MSGBOX
"You Pressed NO !"
, "BCX Demo"
, 1
END
SELECT
LOOP
'----------------------------------------------------------------------------
' OK 0 Display OK button only.
' OKCancel 1 Display OK and Cancel buttons.
' AbortRetryIgnore 2 Display Abort, Retry, and Ignore buttons.
' YesNoCancel 3 Display Yes, No, and Cancel buttons.
' YesNo 4 Display Yes and No buttons.
' RetryCancel 5 Display Retry and Cancel buttons.
' Critical 16 Display Critical Message icon.
' Question 32 Display Warning Query icon.
' Exclamation 48 Display Warning Message icon.
' Information 64 Display Information Message icon.
' DefaultButton1 0 First button is default.
' DefaultButton2 256 Second button is default.
' DefaultButton3 512 Third button is default.
'----------------------------------------------------------------------------