如何实现用按钮来控制MSHFlexGrid滚动条?

zhangdemi111 2012-04-20 03:40:53

MSHFlexGrid滚动条左右上下移动,能用按钮来实现控制吗?
Thanks!

...全文

132 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

worldy 2012-04-21

打赏
举报

Private Sub Command1_Click() '左捲一列
MSHFlexGrid1.scroll -1
End Sub

worldy 2012-04-21

打赏
举报

Private Sub Command2_Click() '左捲一列
MSHFlexGrid1.scroll 1
End Sub

Private Sub Command1_Click() '左捲一列
MSHFlexGrid1.scroll 2
End Sub

zhangdemi111 2012-04-21

打赏
举报

[Quote=引用 1 楼的回复:]
VB code

Private Sub Command1_Click() '右捲一列
If MSHFlexGrid1.LeftCol > 1 Then MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol - 1
End Sub

Private Sub Command2_Click() '左捲一列
MSHFlexGrid1.LeftCol……
[/Quote]
非常感谢!!

vrgame 2012-04-20

打赏
举报

Private Sub Command1_Click() '右捲一列

  If MSHFlexGrid1.LeftCol > 1 Then MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol - 1

End Sub



Private Sub Command2_Click() '左捲一列

  MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol + 1

End Sub



Private Sub Command3_Click() '上捲一行

  If MSHFlexGrid1.TopRow > 1 Then MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow - 1

End Sub



Private Sub Command4_Click() '下捲一行

  MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow + 1

End Sub