以ä¸æ¯å¸®å©ææ¡£ä¸å
³äº MsgGox å½æ°ç说æï¼
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/574e9258d109b3de0cbeddb9c6bf6c81810a4cd9?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
使ç¨ç¤ºä¾ä»£ç å¦ä¸ï¼
æ¬ç¤ºä¾ä½¿ç¨ MsgBox å½æ°ï¼å¨å
·æâæ¯âåâå¦âæé®ç对è¯æ¡ä¸æ¾ç¤ºä¸æ¡ä¸¥éé误信æ¯ã示ä¾ä¸ç缺çæé®ä¸ºâå¦âï¼MsgBox å½æ°çè¿åå¼è§ç¨æ·æåªä¸ä¸ªé®èå®ãæ¬ç¤ºä¾å设
DEMO.HLP 为ä¸å¸®å©æ件ï¼å
¶ä¸æä¸ä¸ªå
容代ç 为 1000ã
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