vb中用msgbox输出的时候，msgbox的返回值怎么用

我知道vbok 1,vbcancel 2,等等，关键是这个怎么用啊，在代码中怎么用，能举个例子说明下最好，

举报该问题

推荐答案 2015-05-29

MsgBox å½æ°

è¯æ³

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox å½æ°ç¤ºä¾

æ¬ç¤ºä¾ä½¿ç¨ MsgBox

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

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://11.wendadaohang.com/zd/Fvv4MMvM27F278P48S4.html

其他回答

第1个回答 2013-10-17

例如：

dim a as vbmsgboxresult

a =msgbox ("请选择一个按钮按下",vbyesno)
if a=vbyes then

msgbox "你按下了Yes按钮"

else

msgbox "你按下了No按钮"
end if

用来判断你按下了什么。本回答被网友采纳

第2个回答 2013-10-17

看看这段：
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If

相似回答

vb中如何将MsgBoX函数返回值输出到窗体上答：vbYes 6 Yes vbNo 7 No textbox1.text=msgbox（...）或 form1.text=msgbox（...）或 Dim g As Graphics = Me.CreateGraphics()'Graphics 对象的 DrawString 方法替换 Visual Basic 6.0 的 Print 方法。Print 方法只使用一个 Text 参数，而 DrawString 还需使用指定下列各项的参数：Font...

大家正在搜

vb中msgbox的返回值 vb中msgbox怎么用 msgbox返回值是什么 msgbox返回值的类型 msgbox语句的返回值 vba如何获取msgbox返回值把msgbox的返回值转换为数字 msgbox语句的返回值类型为 vbmsgbox返回值确定