去编写timertick事件，间隔弄成1、2秒
static pval as double = 0
Dim diff As Double = pval - e.Form.Controls("Label1").Text
If Math.Abs(diff) < 0.5 Then
msgbox(pval)
Else
pval = e.Form.Controls("Label1").Text
End If
加好友 
发短信
Post By：2015/7/16 18:12:00 [显示全部帖子]
