您的位置：58脚本 > msgbox函数使用范例 MsgBox函数的运行值

msgbox函数使用范例 MsgBox函数的运行值

2023-03-16 23:32 ExcelVBA编程教程

msgbox函数使用范例 MsgBox函数的运行值

msgbox函数使用范例

msgbox函数是VBA中的一个常用函数，它可以在指定的位置显示一个消息框，并返回用户的选择。它有三个参数：Prompt、Title和Buttons。

Sub MsgBoxDemo() 
    Dim i As Integer 
    i = MsgBox("请选择你要进行的操作", vbYesNoCancel + vbQuestion, "询问") 
    Select Case i 
        Case vbYes 
            MsgBox "你选择了是" 
        Case vbNo 
            MsgBox "你选择了否" 
        Case vbCancel 
            MsgBox "你取消了本次操作" 
    End Select 
End Sub

上面的代码中，MsgBox函数被用来显示一个询问对话框，其中包含三个选项：“是”、“否”和“取消”。当用户选择其中一个选项时，MsgBox函数会返回一个值来表示用户的选择。然后根据返回值来执行不同的代码。

MsgBox函数的运行值

当你显示只有一个按钮的信息框时，可以点击确定按钮或者回车键将信息框从屏幕上移除，然而，当信息框有两个或以上的按钮时，你的程序需要知道按的是哪个按钮。你可以将信息框结果储存在一个变量上来实现。表4－2 显示了MsgBox函数返回值。



表4－2 MsgBox函数返回值


MsgYesNo3过程是MsgYesNo2过程修改后的版本，示范如何确定用户按下的是哪个按钮：

Sub MsgYesNo3()
             Dim question As String
             Dim myButtons As Integer
             Dim myTitle As String
             Dim myChoice As Integer
             question = "Do you want to open a new workbook?"
             myButtons = vbYesNo + vbQuestion + vbDefaultButton2
             myTitle = "New workbook"
             myChoice = MsgBox(question, myButtons, myTitle)
             MsgBox myChoice
End Sub

在上面的过程里，你将MsgBox函数的结果赋给变量myChoice。注意，现在，MsgBox函数的参数列在括号里面：

myChoice = MsgBox(question, myButtons, myTitle)

当你运行MsgYesNo3时，出现带有两个按钮的信息框，当你点击“是”时，MsgBoxmyChoice将显示数字6；当点击“否”则得到数字7。你将在第五章里面学习如果让程序根据按钮的选择进行不同的任务。

技巧：函数——使用还是不使用括号？
当你需要使用MsgBox函数返回的结果时，需要使用括号将该函数的参数包括起来。不使用括号，意味着你告诉VB你将忽略该函数的结果。当MsgBox函数包含两个或以上的按钮时，你很可能想要使用该函数的结果。

阅读全文
以上是58脚本为你收集整理的msgbox函数使用范例 MsgBox函数的运行值全部内容。
声明：本站所有文章资源内容，如无特殊说明或标注，均为采集网络资源。如若本站内容侵犯了原著者的合法权益，可联系本站删除。
全部标签 标签详情
相关文章
热门文章
推荐文章
猜您喜欢
© 2024 58脚本 58jiaoben.com 版权所有 联系我们
桂ICP备12005667号-28 Powered by CMS