- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 快捷键的问题？求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52811)
-- 发布时间：2014/6/23 16:36:00
-- 快捷键的问题？求助
在模式窗口上有“向上一条”“向下一条”“最前”“最后”四个控件，代码如下编写，我想对“向上一条”及“向下一条”设置快捷键，代码应该怎么改？求助
Select Case e.Sender.Name
Case "上一条"
CurrentTable.Position = CurrentTable.Position - 1
Case "下一条"
CurrentTable.Position = CurrentTable.Position + 1
Case "最前"
CurrentTable.Position = 0
Case "最后"
CurrentTable.Position = CurrentTable.Rows.Count -1
End Select
如下图：
此主题相关图片如下：qq截图20140623163155.jpg
此主题相关图片如下：qq截图20140623163155.jpg或者只写一个：双击回车 进入下一条
[此贴子已经被作者于2014-6-23 16:45:47编辑过]
-- 发布时间：2014/6/23 16:39:00
--
沙发
-- 发布时间：2014/6/23 16:46:00
--
窗口的KEYDOWN里处理
-- 发布时间：2014/6/23 17:24:00
--
谢老师，看是看得懂，但拿来改我就不会改了,求帮忙
-- 发布时间：2014/6/23 17:25:00
--
很简单的,自己先动手试试, 搞不定就上例子.
-- 发布时间：2014/6/23 17:36:00
-- 上例
上例,麻烦老师了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:双击下一条.rar |
-- 发布时间：2014/6/23 17:51:00
--
表事件，keydown事件，代码，意思是按下了ctrl+上下箭头换行
If e.Control = True Then
If e.KeyCode = keys.Down Then
CurrentTable.Position = CurrentTable.Position - 1
Else If e.KeyCode = keys.Up Then
CurrentTable.Position = CurrentTable.Position + 1
End If
End If
-- 发布时间：2014/6/23 17:59:00
--
老师，我的控件就可以向上一条或向下一条了，我是想更快，不用动鼠标，直接双回车就向下一条了，是在模式窗口，客户记录窗口里实行，
-- 发布时间：2014/6/23 18:02:00
--
以下是引用看雪的人在2014-6-23 17:59:00的发言：
老师，我的控件就可以向上一条或向下一条了，我是想更快，不用动鼠标，直接双回车就向下一条了，是在模式窗口，客户记录窗口里实行，
老师，我的控件就可以向上一条或向下一条了，我是想更快，不用动鼠标，直接双回车就向下一条了，是在模式窗口，客户记录窗口里实行，
在窗口的keydown事件 和 表的keydown事件，加入代码
If e.Control = True Then
If e.KeyCode = keys.Down Then
CurrentTable.Position = CurrentTable.Position - 1
Else If e.KeyCode = keys.Up Then
CurrentTable.Position = CurrentTable.Position + 1
End If
End If
-- 发布时间：2014/6/23 18:10:00
--
测试按ctrl+向上，向下后向上一条向下一条，老师您是让我按这个代码的基础上在改是不是