Question

vb中如何让msgbox只有确定，点击确定调用按钮一单击事件

Answer 1

msgbox ("标题",MsgboxStyle,"内容")

msgboxstyle=0,16,32,64等，按钮都只有一个确定按钮，这个值是msgbox的图标和按钮的组合，图标的值分别是0，16，32，64，按钮分别是
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
把两个数加起来就可以

Answer 2

Private Sub Command1_Click()
MsgBox "消息",vbOKOnly ,“此处为提示的内容” 'vbOKOnly表示 只显示 OK 按钮
Command2_Click '调用另一按钮的单击事件
End Sub

Answer 3

Private Sub Command1_Click()
MsgBox "****", vbOKOnly
Command2_Click '按钮单击
End Sub
如果有 确定、取消 的msgbox可以这样写
Private Sub Command1_Click()
If MsgBox("****", vbOKCancel) = vbOK Then Command2_Click '按钮单击
End Sub

Answer 4

Private Sub Command1_Click()
MsgBox "123"
Command2_Click
End Sub

Private Sub Command2_Click()
Me.Caption = "1111111"
End Sub