加上代码
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptimeIf sp.TotalSeconds <= 1 Then return '一秒内多次触发无效Else ptime = Date.nowEnd If
加好友 
发短信
Post By：2017/1/17 14:14:00 [显示全部帖子]
