VB工程--百例69--消息框

前端之家收集整理的这篇文章主要介绍了VB工程--百例69--消息框前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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

猜你在找的VB相关文章