怎样用按钮代替键盘上下键 来移动VSFlexGrid表格?

Question

VSFlexGrid中的数据多了,就会出现一个滑条,上下拉动滑条可以显示剩余的数据了.
如果我用VSFlexGrid做触摸屏程序,数据多了该怎样移动滑条了?(因为触摸屏没有鼠标,键盘)
能否用按钮来移动VSFlexGrid滑条?

Answer 1

触摸屏应该也是模拟了鼠标的点击吧.如果是这样,那只要点滚动条能够滚动,那就根本不用改你的代码了.不然,就使用SendKeys向控件发送向上向下方向键吧,使用触摸屏来控制它.

Answer 2

可以的，flexgrid有.row和.col属性，分别是当前行号和列号,修改.row=.row+1、.row=.row-1，刷新就行了

Answer 3

myjian:你好！ 非常感谢的的回答
用手直接点击VSFlexGrid滚动条可以滚动，但是手指太大不好用，所以我想在旁边加一个按钮 点击按钮来移动表格（滚动）
你说用SendKeys方法来控制:  我是这样操作的，不行，你能帮我在看一下吗？谢谢
Private Sub Command1_Click()
SendKeys "{vbKeyDown}"
End Sub

Answer 4

liuqingqi：你好！非常感谢的的回答 
你给我的方法：我是着样做的
Private Sub Command1_Click() 
VSFlexGrid1.row=VSFlexGrid1.row+1
End Sub 
我试了一下在VSFlexGrid表格上只能移动表格中的焦点，表格中的焦点在走但表格没动（滚动条）。
能在帮我看一下有没有其他办法吗？
谢谢

Answer 5

.showcell row,col可以自动显示所要求的行和列，滚动条会自动移动
Private Sub Command1_Click()  
VSFlexGrid1.row=VSFlexGrid1.row+1 
VSFlexGrid1.showcell VSFlexGrid1.row，VSFlexGrid1.col
End Sub
即可