现在的位置: 首页 > 综合 > 正文

VB工程–百例69–消息框

2013年10月16日 ⁄ 综合 ⁄ 共 387字 ⁄ 字号 评论关闭

 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 "你选择了“否”按钮", vbInformation, "信息框"
        ElseIf x = 6 Then   '同上
        MsgBox "你选择了“取消”按钮", vbInformation, "消息框"
        End If
End Sub

 

 

 

 

抱歉!评论已关闭.