败笔啊,全键盘操作落空了,关于文本框和msflexgrid

lfshf 2004-10-05 10:12:48
我是想在文本框里键击上、下箭头键时,模拟在msflexgrid同样的击键,但是又不能转移焦点,目的是实现msflexgrid内容的键盘选择,目前我还只能用鼠标单击,败笔啊,全键盘操作落空了。

请指点,困扰很久的问题了。
...全文
115 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lfshf 2004-10-07
用sendmessage也不行,sendkeys更不可能!因为网格不接受键盘的上下箭头键

自己解决了,主要代码如下:


Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 38 Then
If GridTip.Row > 1 Then
GridTip.Row = GridTip.Row - 1
GridTip.ColSel = 14
End If
ElseIf KeyCode = 40 Then
If GridTip.Row < GridTip.Rows - 1 Then
GridTip.Row = GridTip.Row + 1
GridTip.ColSel = 14
End If
End If

End Sub

送分了!

回复
lfshf 2004-10-07
我是楼主,我想大家还是不太明白我的意思

我的目的是,在文本框里填写代码查找数据库,然后在一个msflexgrid里显示查询的结果,那么有时候就会有重复的结果,这时候就要选择了,我就想在文本框里捕获键盘输入,在网格里实现选择。
回复
cosio 2004-10-06
用sendkeys
回复
xfsfis 2004-10-06
在KeyPress事件中,再用sendkeys 上、下箭头键的code,不是就可以嗎?
回复
axer 2004-10-06
看你的意思应该是想用move 改变位置,textbox用于编辑和显示
回复
haohaohappy 2004-10-06
sendkeys不是可以么?
回复
lxcc 2004-10-05
上下键不改变textbox焦点,而是改变textbox的位置(相对于msflexgrid)
回复
lfshf 2004-10-05
简单点

text1里击上、下箭头键=msflexgrid里击上、下箭头键,text1焦点不转移,我看到有软件能办到的。
回复
themayer 2004-10-05
不明白你的意思
照你这样的讲法,excel也做不到吧
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7518

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-10-05 10:12
社区公告
暂无公告