MsgBox å½æ°
å¨å¯¹è¯æ¡ä¸æ¾ç¤ºæ¶æ¯ï¼çå¾
ç¨æ·åå»æé®ï¼å¹¶è¿åä¸ä¸ª Integer åè¯ç¨æ·åå»åªä¸ä¸ªæé®ã
è¯æ³
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
MsgBox å½æ°ç¤ºä¾
æ¬ç¤ºä¾ä½¿ç¨ MsgBox
å½æ°ï¼å¨å
·æâæ¯âåâå¦âæé®ç对è¯æ¡ä¸æ¾ç¤ºä¸æ¡ä¸¥éé误信æ¯ã示ä¾ä¸ç缺çæé®ä¸ºâå¦âï¼MsgBox å½æ°çè¿åå¼è§ç¨æ·æåªä¸ä¸ªé®èå®ãæ¬ç¤ºä¾å设
DEMO.HLP 为ä¸å¸®å©æ件ï¼å
¶ä¸æä¸ä¸ªå
容代ç 为 1000ã
Private Sub Command1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' å®ä¹ä¿¡æ¯ã
Style = vbYesNo + vbCritical + vbDefaultButton2 ' å®ä¹æé®ã
Title = "MsgBox Demonstration" ' å®ä¹æ é¢ã
Help = "DEMO.HLP" ' å®ä¹å¸®å©æ件ã
Ctxt = 1000 ' å®ä¹æ é¢
' ä¸ä¸æã
' æ¾ç¤ºä¿¡æ¯ã
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' ç¨æ·æä¸âæ¯âã
MyString = "Yes" ' å®æææä½ã
Else ' ç¨æ·æä¸âå¦âã
MyString = "No" ' å®æææä½ã
End If
End Sub
ä¸å代ç ç¨è¿åå¼1å7æ¿ä»£ä¸é¢ä»£ç ä¸çvbYesï¼vbNoï¼ææä¸å段代ç æ¯å®å
¨ä¸è´çãï¼
Private Sub Command1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' å®ä¹ä¿¡æ¯ã
Style = vbYesNo + vbCritical + vbDefaultButton2 ' å®ä¹æé®ã
Title = "MsgBox Demonstration" ' å®ä¹æ é¢ã
Help = "DEMO.HLP" ' å®ä¹å¸®å©æ件ã
Ctxt = 1000 ' å®ä¹æ é¢
' ä¸ä¸æã
' æ¾ç¤ºä¿¡æ¯ã
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = 1 Then ' ç¨æ·æä¸âæ¯âã
MyString = "Yes"
' å®æææä½ã
ElseIf Response = 7 Then ' ç¨æ·æä¸âå¦âã
MyString = "No"
' å®æææä½
End If
End Sub