UC知道msgbox 一闪而过 解决
来源：百度知道 编辑：UC知道 时间：2024/06/03 07:30:41
我的代码
Form1.Hide
Shell ("taskkill /f /im QQ.exe")
z = MsgBox("您的QQ遇到问题需要关闭，请重新登录，由此带来的不便，我们非常抱歉.", vbOKOnly, "QQ提示")
If z = 1 Then
Form1.Show
Timer1.Enabled = False
End If
运行时总是一闪而过，不出现form1
请高手帮帮忙
我再向大家补充一下，这个代码在运行也就是调试时 时能用的，但是生成程序后就不行了，msgbox一闪而过，然后就什么都没有了。请大家帮帮忙啊
Form1.Hide
Shell ("taskkill /f /im QQ.exe")
z = MsgBox("您的QQ遇到问题需要关闭，请重新登录，由此带来的不便，我们非常抱歉.", vbOKOnly, "QQ提示")
If z = 1 Then
Form1.Show
Timer1.Enabled = False
End If
运行时总是一闪而过，不出现form1
请高手帮帮忙
我再向大家补充一下，这个代码在运行也就是调试时 时能用的，但是生成程序后就不行了，msgbox一闪而过，然后就什么都没有了。请大家帮帮忙啊
Form1.Hide去掉试试
而且vbOkOnly好像就是1，可以吧IF结构去掉试试
上面代码写在Form_Load里面
Form1.Hide
Shell ("taskkill /f /im QQ.exe")
MsgBox "您的QQ遇到问题需要关闭，请重新登录，由此带来的不便，我们非常抱歉.", vbOKOnly, "QQ提示"
Form1.Show
Timer1.Enabled = False
测试有效。完全没问题。正常出现FORM1 不用增减代码
269426el - 助理 二级 你这小子是不是在做盗号的软件啊。糊弄小孩 伪装登陆界面。
Form1.Hide去掉