MsgBox图标样式

一、图标样式

[vb]  view plain copy

1. Private Sub Command4_Click()  
2.  MsgBox "Hello World  vbCritical", vbOKOnly + vbCritical, "我是标题栏"  
3.  MsgBox "Hello World  vbQuestion", vbOKOnly + vbQuestion, "我是标题栏"  
4.  MsgBox "Hello World  vbExclamation", vbOKOnly + vbExclamation, "我是标题栏"  
5.  MsgBox "Hello World  vbInformation", vbOKOnly + vbInformation, "我是标题栏"  
6. End Sub  

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

 

一、按钮样式：

[vb]  view plain copy

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