Option Explicit
Private Sub Form_Click()
Dim x As Integer
x = MsgBox("你单击的是窗体，是吗？",35,"询问框")
If x = 6 Then '若们四个Box的函数的返回值是6
MsgBox "你选择了“是”按钮",vbinformation,"信息框"
'弹出的选择“是”的消息框 注意是的引号是中文的 这是犯错误的地方
ElseIf x = 7 Then '同上
MsgBox "你选择了“否”按钮","信息框"
ElseIf x = 6 Then '同上
MsgBox "你选择了“取消”按钮","消息框"
End If
End Sub
原文地址：https://www.jb51.cc/vb/260373.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
