- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 小问题！！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52756)
-- 发布时间：2014/6/22 16:05:00
-- 小问题！！！
代码如下：
forms("客户情况调查表").show()
我有这么个窗口设计，我想通过双回车或点击控件都可以打开，代码应该怎么改？
求指点？
-- 发布时间：2014/6/22 16:05:00
--
沙发
-- 发布时间：2014/6/22 16:10:00
--
编写表的keydow事件
static prevtime As Date
If e.KeyCode = keys.Enter Then
Dim sp As TimeSpan = Date.Now - prevtime
prevtime = Date.Now
If sp.Milliseconds < 300 Then
msgbox(1)
End If
End If
-- 发布时间：2014/6/22 16:22:00
--
不知道位置在那，有没有知识点，代码有点看不懂
-- 发布时间：2014/6/22 16:24:00
--
呃，表属性->事件->keydown
-- 发布时间：2014/6/22 16:35:00
--
不知道是不是我理解错误，没有效果！
此主题相关图片如下：qq截图20140622163339.jpg
[此贴子已经被作者于2014-6-22 16:36:41编辑过]
-- 发布时间：2014/6/22 16:36:00
--
1、代码写在表事件keydown；
2、代码写在窗口全局事件keydown。
-- 发布时间：2014/6/22 16:40:00
--
双回车或者其它建“F”几什么的，求老师帮看看
没有聚体明白您的意思
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:个人习惯输入.rar |
-- 发布时间：2014/6/22 16:45:00
--
中冠市场部客户表，表事件，keydown
static prevtime As Date
If e.KeyCode = keys.Enter Then
Dim sp As TimeSpan = Date.Now - prevtime
prevtime = Date.Now
If sp.Milliseconds < 300 Then
forms("客户情况调查表").show()
End If
End If
-- 发布时间：2014/6/22 16:52:00
--
找到了，谢谢