MESSAGEBOX的使用 MESSAGEBOX(消息文本 [, 对话框样式][, 题头文本][, 关闭时间])

-*!*　　MESSAGEBOX(eMessageText [, nDialogBoxType ][, cTitleBarText][, nTimeout])

*!*　　





*!*　　Value　Dialog box buttons　

*!*　　0　 OK button only

*!*　　1　 OK and Cancel buttons

*!*　　2　 Abort, Retry, and Ignore buttons

*!*　　3　 Yes, No, and Cancel buttons

*!*　　4　 Yes and No buttons

*!*　　5　 Retry and Cancel buttons

*!*　　Value　Icon　

*!*　　16 Stop sign

*!*　　32 Question mark

*!*　　48 Exclamation point

*!*　　64 Information (i) icon



*!*　　Value　Default button　

*!*　　0　First button

*!*　　256 Second button

*!*　　512 Third button





*!*　　Return value　Button　

*!*　　1 OK

*!*　　2 Cancel

*!*　　3 Abort

*!*　　4 Retry

*!*　　5 Ignore

*!*　　6 Yes

*!*　　7 No





eMessageTitle =　My Application

eMessageText =　Record not found. Would you like to search again?

nDialogType = 3+ 16+ 256

*　4 = Yes and No buttons

*　16 = Stop sign icon

*　256 = Second button is default







nAnswer = MESSAGEBOX(eMessageText, nDialogType, eMessageTitle)

DO CASE

　 CASE nAnswer = 6

　　　WAIT WINDOW　You chose Yes