VB - 显示MSGBOX一次时间（R）

我有以下代码：VB - 显示MSGBOX一次时间（R）

Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
     Dim mesaj As New Integer 

     My.Computer.Network.DownloadFile("http://rotutorial.net/anunt.txt", "c:\classmate\msg1.txt", "", "", False, 60000, True) 
     Dim readtext As New System.IO.StreamReader("c:\classmate\msg1.txt") 
     Dim text As String 
     text = readtext.ReadToEnd 
     readtext.Close() 
     Dim parti(10) As String 
     parti = text.Split("_") 

     Dim writetext1 As New System.IO.StreamReader("c:\classmate\msg.txt") 
     Dim text1 As String 
     Dim parti1(10) As String 
     text1 = writetext1.ReadToEnd 
     parti1 = text1.Split("_") 

     writetext1.Close() 
     Dim unic As New Integer 
     unic = Val(parti(0)) 
     Dim unic1 As New Integer 
     unic1 = Val(parti1(0)) 

     If unic <> unic1 Then 
      If unic <> unic1 Then 
       mesaj = MsgBox(parti(3), vbYesNo, "Mesaj") 
      End If 
      Dim writetext2 As New System.IO.StreamWriter("c:\classmate\msg.txt") 
      Dim text2 As String 
      text2 = text & "/" & text1 
      writetext2.Write(text2) 
      writetext2.Close() 

      Timer1.Enabled = False 
      Timer1.Enabled = True 
     End If 
     Timer1.Enabled = False 
     Timer1.Enabled = True 






    End Sub

计时器间隔被设定为5000（5秒），但每次当计时器滴答作响的MSGBOX出现在屏幕上，但文件msg.txt正在写入一次。所以，定时器检查unic是否与unic1不同，如果不同，则会显示一个msg框，并在msg.txt中写入新行，但在下一个定时器tick时，即使unic和unic1等于msgbox无论如何都会出现，但它更有趣，因为它不会再次写入文件，只会显示msgbox。我不明白这一点。

对不起，我英语不好，我来自罗马尼亚。

谢谢！

来源

2012-06-02 Zvinca Alin

所以问题是：'第二个定时器Tick事件显示一个msgbox和你不确定的原因。我认为这与你没有调试代码有关。我建议在'If unic <> unic1 Then'行（我不确定哪一个你有它列出两次？！？！），然后在第二个事件步骤中通过代码的条件断点来找出为什么'即使unic和unic1相同，msgbox也会显示。 –

在错误的地方使用正确的理由时，消息框可能有点危险。这是其中之一。问题在于，它在循环中调用了DoEvents，它旨在保持消息循环的可操作性。因此，Windows消息（如消息框的Paint事件和输入事件）将按正常方式分派和处理。这可以防止你的用户界面冻结。

这可能会导致再次入侵问题。消息框通过禁用应用程序中的所有窗口来解决最严重的问题。请注意您点击其中一个窗口时发出的哔声。但是，不是阻止定时器消息。所以5秒后，你的Timer1_Tick（）方法再次运行。显示另一个消息框。等待足够长的时间解散他们，你的屏幕只是填满消息框。您可能会多次运行文件操作代码中的其他问题。

解决方法很简单，只需在方法开始时禁用Timer即可。最后重新启用它。 BackgroundWorker也是这样的代码中的常见选择，它可以防止缓慢的文件下载冻结您的UI。

来源

2012-06-02 14:32:15

VB - 显示MSGBOX一次时间（R）

回答

相关问题