以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]狐表开发的pc端项目,能用PPT激光笔切换上下页功能实现表上下一行嘛?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193208)

--  作者:185723664
--  发布时间:2024/8/26 23:15:00
--  [求助]狐表开发的pc端项目,能用PPT激光笔切换上下页功能实现表上下一行嘛?
如题
[此贴子已经被作者于2024/8/26 23:17:04编辑过]

--  作者:有点蓝
--  发布时间:2024/8/26 23:22:00
--  
那要看激光笔切换上下页触发的是什么按键了,到表格keydown事件处理即可
--  作者:185723664
--  发布时间:2024/8/26 23:27:00
--  回复:(有点蓝)那要看激光笔切换上下页触发的是什么...
蓝大师,就是京东买的PPT汇报演示时切换上一页,下一页的激光笔
正需要这个功能,辛苦蓝大师出手给个代码

下翻一页:通常是Page Down键或空格键。
上翻一页:通常是Page Up键或Backspace键(在某些情况下)。
[此贴子已经被作者于2024/8/26 23:29:23编辑过]

--  作者:有点蓝
--  发布时间:2024/8/27 8:36:00
--  
http://www.foxtable.com/webhelp/topics/1642.htmhttp://www.foxtable.com/webhelp/topics/0621.htm

KeyDown事件
If e.Table.Current IsNot Nothing Then
e.cancel=true
    Select
 Case e.KeyCode
        Case
 Keys.
PageDown
            
e.Table.position = e.Table.position +1
        
Case Keys.
PageUp
         
e.Table.position = e.Table.position -1
    
End Select
End
 
If