vb msgbox各种图标样式及按钮样式

图标样式

Private Sub Command4_Click()
 MsgBox "Hello World  vbCritical", vbOKOnly + vbCritical, "我是标题栏"
 MsgBox "Hello World  vbQuestion", vbOKOnly + vbQuestion, "我是标题栏"
 MsgBox "Hello World  vbExclamation", vbOKOnly + vbExclamation, "我是标题栏"
 MsgBox "Hello World  vbInformation", vbOKOnly + vbInformation, "我是标题栏"
End Sub

对应的图标样式依次如下：

按钮样式：

MsgBox "对应值：0", vbOKOnly + vbQuestion, "按钮样式"
MsgBox "对应值：1", vbOKCancel + vbQuestion, "按钮样式"
MsgBox "对应值：2", vbAbortRetryIgnore + vbQuestion, "按钮样式"
MsgBox "对应值：3", vbYesNoCancel + vbQuestion, "按钮样式"
MsgBox "对应值：4", vbYesNo + vbQuestion, "按钮样式"
MsgBox "对应值：5", vbRetryCancel + vbQuestion, "按钮样式"

---

转载自：https://blog.csdn.net/twtiqfn/article/details/19897041