MsgBox与timer

Question

在我写的程序里Private Sub Timer2_Timer()
text1.text=text1.text+1
end subPrivate Sub Timer3_Timer()
If text1.text>form2.text1.text 
jingg = MsgBox("您的本次再线时间超过了您所定的时间", vbMsgBoxRight, "警告")
End If
End Sub当符合条件，MsgBox弹出来时，如果你不按MsgBox上的确定，那么text1.text就不会增加，
怎么样写代码才能让MsgBox弹出时text1.text也照样增加？

Answer 1

If text1.text>form2.text1.text Timer2.Enabled = Falsejingg = MsgBox("您的本次再线时间超过了您所定的时间", vbMsgBoxRight, "警告")if jingg=vbOK then
Timer2.Enabled = True
end ifEnd If

Answer 2

在if(.....)后面加上  timer1.enabled=true
后面的自己看着办吧

Answer 3

Private Sub Timer2_Timer()
text1.text=text1.text+1
end subPrivate Sub Timer3_Timer()
If text1.text>form2.text1.text 
jingg = MsgBox("您的本次再线时间超过了您所定的时间", vbMsgBoxRight, "警告")
End If
End Sub

Answer 4

If text1.text>form2.text1.text Timer2.Enabled = Falsejingg = MsgBox("您的本次再线时间超过了您所定的时间",vbMsgBoxRight, "警告")if jingg=vbOK then
Timer2.Enabled =False
else 
    timer2.enabled=true 
end ifEnd If

Answer 5

msgbox是一个窗体类，和模式窗体差不多，但是会停顿父窗体的程序运行！建议：自己写一个！

Answer 6

shawls(小山(坚持VB,学VB.net和C#)) 抄袭！
嘿嘿！

Answer 7

在msgbox调用之前禁用掉timer2，msgbox调用之后恢复timer2的计时。