BCX Console Demonstration Program
C:\dev\BCXCode\Con_Demo\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.
'----------------------------------------------------------------------------