以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 单击没问题，双击报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118851)
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 10:25:00
-- 单击没问题，双击报错
菜单栏单击没问题，双击报错，怎么回事
|
-- 作者：有点蓝
-- 发布时间：2018/5/12 10:59:00
--
什么地方的菜单栏？写了什么代码？出什么错？
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 11:03:00
--
能帮我QQ远程看看么，不好说清
|
-- 作者：有点蓝
-- 发布时间：2018/5/12 11:36:00
--
无法QQ远程。贴出代码，截图，上传实例说明
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 13:22:00
--
防止按钮连续点击
思路：写一个工具类，判断两次点击的时间间隔，如果两个点击的时间小于某个规定值，就不能触发相应该事件
该怎样写
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 13:28:00
--
写在哪
|
-- 作者：有点蓝
-- 发布时间：2018/5/12 15:17:00
--
菜单按钮点击事件
static d As Date If (Date.Now - d).TotalMilliseconds >= 1000 Then ‘’StatusBar.Message2 = (Date.Now - d).TotalMilliseconds ‘正常处理逻辑 End If d = Date.Now
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 16:19:00
--
不行，还请老师详细指点
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 16:22:00
--
static d As Date
d = Date.Now
If (Date.Now - d).TotalMilliseconds >= 10 Then
\' StatusBar.Message2 = (Date.Now - d).TotalMilliseconds
\'正常处理逻辑
forms("线路预定").Show
End If
我放在单击事件里，这样不行，请指点
|
-- 作者：zhaohj611718
-- 发布时间：2018/5/12 16:26:00
--
static d As Date
If (Date.Now - d).TotalMilliseconds >= 10000 Then
StatusBar.Message2 = (Date.Now - d).TotalMilliseconds
\'正常处理逻辑
forms("线路预定").Show
End If
d = Date.Now
也不行
|