4.4.2-弹窗提示

在需要一些交互或者提示用户信息时，可以使用弹框。如果只是简单的提示，使用 Msgbox 拟弹框信息即可，注意空格的使用。Msgbox也可以支持其它的功能，以下6句Msgbox执行结果如图4-6至4-10所示，注意弹窗的区别及对应代码的区别。

Sub test2()
    MsgBox "test"
    MsgBox "test", vbCritical, "弹窗"
    MsgBox "test", vbInformation, "弹窗"

    x = MsgBox("test", vbYesNoCancel, "弹窗")
    Debug.Print (x)
    
    x1 = MsgBox("test", vbYesNo, "弹窗")
    Debug.Print (x1)
End Sub
../_images/4-6.png

图4-6 MsgBox "test"
../_images/4-7.png

图4-7 MsgBox "test", vbCritical, "弹窗"
../_images/4-8.png

图4-8 MsgBox "test", vbInformation, "弹窗"
../_images/4-9.png

图4-9 x = MsgBox("test", vbYesNoCancel, "弹窗")
../_images/4-10.png

图4-10 x1 = MsgBox("test", vbYesNo, "弹窗")

对于vbYesNoCancel ，vbYesNo用户选择不同时返回的值是不同的，通过返回值得知用户的选择，一般用于需要用户进行选择的程序代码中。大家有没有发现，在VBA中很多场景下空格代替()中的作用。