Question

求助：如何解决vb 提示弹出框MsgBox问题

我有6个Command代码末尾都写有弹出框（MsgBox "数据处理完毕"）语句.
现在再用一个Command来执行这6个Command时，如：
Private Sub Command100_Click()
Call Command65_Click
Call Command63_Click
Call Command86_Click
Call Command76_Click
Call Command95_Click
Call Command85_Click
End Sub
问题是会出现6次弹出框，每次都要手动按弹出框“确定”，非常麻烦！能否当弹出框出现后自动执行“确定”控件而到下一步呢？
一句话表达：就是“一键执行”实现默认的弹出框“确定”（或者不让弹出框出现直接到下一步”）

Answer 1

SendKeys "{ENTER}"
Call Command65_Click
SendKeys "{ENTER}"
Call Command63_Click
SendKeys "{ENTER}"
Call Command86_Click
……

测试这样可以，
我原本以为要先 Call 再Sendkeys，但实际测试却不对，反过来 才行（先SendKeys再Call），暂时还不明白为什么。

Answer 2

Private Sub Command1_Click()
Test1
Test2
End Sub

Sub Test1()
a = a + 1
End Sub

Sub Test2()
b = b + 1
End Sub

Private Sub Command2_Click()
Test1
MsgBox Now
End Sub

Private Sub Command3_Click()
Test2
MsgBox Now
End Sub

追问

试过了，用不了啊，还是出现提示框。

追答

你把我代码放到一个新的工程里运行。点击按钮1 能弹出提示框我跟你姓。弱爆了你