以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  关于十字光标问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=62540)

--  作者:kenan168
--  发布时间:2014/3/11 9:12:06
--  关于十字光标问题


我在画面中点击选择一个 K线后,  如何让十字光标停留固定在这个K线上,  而不会跑位,  有什么快捷键可以固定十字光标吗?


感谢

--  作者:王锋
--  发布时间:2014/3/11 16:35:07
--  

参考

 

Gird 对象

【属性】

CrossIndex        十字光标的基于0索引的数据位置,若不显示十字光标则为-1,可续写。

 

参考部分讨论帖

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=62436


--  作者:kenan168
--  发布时间:2014/3/12 13:05:26
--  那请教下


那请教下, 如何在vba中 相应窗体的键盘事件?   如 在键盘中  打入 F8 ,则执行对应的vba代码呢?  感谢 

--  作者:王锋
--  发布时间:2014/3/12 13:34:50
--  
 

Form 对象

事件

KeyDown                  按下和释放某键时KeyDown和KeyUp这两个事件依次发生。按下键时发生 KeyDown 事件。

KeyUp                    释放键时发生

 

你用APPLICATION.MSGOUT函数输出一下按键数字你就能明白的


--  作者:kenan168
--  发布时间:2014/3/12 14:46:09
--  您理解错误了


1.我按下数字后,  一定要激活Form窗体才能获取key事件,  我想在主图标中接收,  会开启 键盘小精灵,  如何不激活Form时获取key输入的内容 ?  感谢

--  作者:王锋
--  发布时间:2014/3/12 14:51:27
--  

那就在模块中响应主程序对象的事件就行了,示例代码

 

Sub APPLICATION_KeyDown(KeyCode, Shift)
    Application.MsgOut keycode
End Sub


--  作者:kenan168
--  发布时间:2014/3/12 15:30:30
--  非常感谢您的回复


非常感谢您的回复,但碰到以下问题

1.如何在 KeyCode 中表示  ctrl +  4  等组合快捷键


2.如何在输入  r  字母后  屏蔽  键盘小精灵的开启

3.if KeyCode=119 then              \'按F8打开窗体
        frmTest.Show
    end if 

如何屏蔽  按下F8后, 金字塔系统的相应,  而只执行自己的代码?


感谢
[此贴子已经被作者于2014/3/12 15:32:18编辑过]