- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 按钮单击没问题 双击就报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82582)
-- 发布时间：2016/3/21 9:40:00
-- 按钮单击没问题 双击就报错
主窗体里放了个按钮，用来打开一个模式窗体
单击主窗体里的按钮，能正常打开模式窗体
但双击按钮，就报错
百思不得姐，求助！
-- 发布时间：2016/3/21 9:53:00
--
按钮的Double事件中是不是有什么错误的代码呀?
-- 发布时间：2016/3/21 9:59:00
--
按钮压根没有"双击"事件
-- 发布时间：2016/3/21 11:00:00
--
人工置顶
-- 发布时间：2016/3/21 11:17:00
--
e.Sender.Enabled = False
Forms("综合查询").show
e.Sender.Enabled = True
-- 发布时间：2016/3/21 11:22:00
--
以下是引用大红袍在2016/3/21 11:17:00的发言：
e.Sender.Enabled = False
Forms("综合查询").show
e.Sender.Enabled = True
e.Sender.Enabled = False
Forms("综合查询").show
e.Sender.Enabled = True
犀利！
-- 发布时间：2016/3/21 11:22:00
--
这个问题经常性会出现，在网络不好的情况下，或者是机器性能不好的情况下。
-- 发布时间：2016/3/21 11:35:00
--
这个应该是重复触发事件导致的，一般，可以做一个延时的操作，比如一秒内多次，就只执行一次。
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
If sp.TotalSeconds <= 1 Then
return \'一秒内多次触发无效
Else
ptime = Date.now
End If
msgbox("我执行了")
-- 发布时间：2016/3/21 12:00:00
--
这个方法不错！
-- 发布时间：2016/3/22 9:59:00
--
还有一个方法也可以，用变量设置。
\'防止双击或者连击代码,首先检测防止双击变量是等于未执行完毕。
If vars("防止双击") = "未执行完毕" Then
vars("防止双击") = "" \'设置为空。为空的时候可以执行下面的代码.
Return Nothing
End If
vars("防止双击") = "未执行完毕"
\'下面是要执行的代码.
\'
\'
vars("防止双击") = "" \'初始化变量为空，空代表已经执行完毕。