msgbox实例

最新推荐文章于 2024-10-23 11:53:50 发布

twtiqfn

最新推荐文章于 2024-10-23 11:53:50 发布

阅读量3.6k

点赞数

分类专栏： vb编程技术文章标签： msgbox实例

本文链接：https://blog.csdn.net/twtiqfn/article/details/19895893

版权

这篇博客详细介绍了 MsgBox 的两个使用实例，包括各自的运行效果，帮助读者理解如何在不同场景下运用 MsgBox。

摘要由CSDN通过智能技术生成

实例一：

Private Sub Command5_Click()
Dim msg$, Style&, Title$, Help$, Ctxt&, Response&, MyString$
msg = "程序发生错误，继续？" '定义消息文本
Style = vbYesNo + vbCritical + vbDefaultButton2 '定义对话框样式
Title = "错误信息" '定义标题文本
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

运行如下：