一个笨方法,在Form2中加一个public变量 bgFinished,当Form2关闭时设置为True,然后程序改为:
Private Sub Command1_Click()
Form2.Show
do while not Form2.bgFinished
Doevents
loop if succeed=True then
a = MsgBox("操作成功!")
else
a = MsgBox("操作失败!")
endif
End Sub
Private Sub Command1_Click()
Form2.Show
do while not Form2.bgFinished
Doevents
loop if succeed=True then
a = MsgBox("操作成功!")
else
a = MsgBox("操作失败!")
endif
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货