VB.NET 拖动窗体问题

落天雨 2009-11-22 11:30:54

Dim s, s1 As DateTime
s = Now()
s1 = Now()
Dim a As Long
Dim b As String
a = 0
b = ""
Do While a < 30
My.Application.DoEvents()
If DateDiff(DateInterval.Second, s1, Now(), FirstDayOfWeek.Monday) >= 1 Then
s1 = Now()
a = DateDiff(DateInterval.Second, s, Now(), FirstDayOfWeek.Monday)
b = b & Chr(13) & Chr(10) & CStr(a \ 3600) & "小时" & CStr(a \ 60) & "分" & CStr(a Mod 60) & "秒"
End If
My.Application.DoEvents()
Loop
MsgBox(b)

我点击了执行上面代码的按钮后如果等待30秒会弹出1-30秒的字符串b,可是如果在运行中拖动窗体，鼠标不松开，等待一段时间后再放开鼠标，这时到达30秒弹出的字符串b里不是1-30秒的信息了，中间少了几秒，并且少的正好是我用鼠标拖动窗体的时间，这个是怎么回事呢，有哪位大侠知道吗？能不能实现不间断的处理呢？

...全文