使用msgbox函数和msgbox过程

使用msgbox函数和msgbox过程

使用msgbox函数和msgbox过程主要用于数据信息的输出。今天我们将结合具体事例对这两种东西进行具体的讲解。例使用msgbox函数，单击窗体时，在具有“是”和“否”按钮的对话框中显示一条严重的错误信息，本例中的默认按钮为“否”。根据msgbox的返回值确定用户单击了哪一个键

本题只需要一个窗体，无需进行界面对象设计，要知道用户单击了哪一个键，需对msgbox函数的返回的整数进行判断，而非msgbox过程。

因为按钮是“是”和“否”，按钮类型为严重错误型，默认按钮为第二个，所以按钮的参数的值应为：vbyesno+vbcritical+vbdefaultbutton2

用msgbox过程显示用户单击了哪个按钮的信息

编写窗体（设其姓名为form1）click事件。

即在窗体上写入一个command1命令按钮，然后我们可以在程序代码窗口对象下拉列表框中选中form，这时我们可以在代码列表框中看到如下的代码。

Private Sub Command1_Click()

End Sub

输入代码

Private Sub Command1_Click()

Dim msg As String * 40, style%, titl$, response%

msg = "do you want to continue?" '定义信息

style = vbYesNo + vbCritical + vbDefaultButton2 '定义按钮

titl = "msgbox demonstration" '定义标题

response = MsgBox(msg, style, titl)

If response = vbYes Then '用户单击"是"按钮

MsgBox "用户单击yes按钮"

Else ''用户单击"否"按钮

MsgBox "用户单击no按钮"

End If

End Sub