
vb mshflexgrid的记录滚动问题--请高手指教!!
我用mshflexgrid做记录显示,现在需要将mshflexgrid中各行各列的数据循环加入到text中并用光标指示当前跑到哪一行哪一列了。因数据过多mshflexgr...
我用mshflexgrid做记录显示,现在需要将mshflexgrid中各行各列的数据循环加入到text中并用光标指示当前跑到哪一行哪一列了。因数据过多mshflexgrid不能完全将数据显示出来,所以有时光标会跑出当前显示范围,需要怎么做才能将mshflexgrid内容显示到光标位置呢?请各位高手赐教!谢谢!
我的目的就是想让mshflexgrid的显示内容跟着光标(或者是焦点跑)当然mshflexgrid显示的全部内容最好还是不动,最好有源代码,感谢! 展开
我的目的就是想让mshflexgrid的显示内容跟着光标(或者是焦点跑)当然mshflexgrid显示的全部内容最好还是不动,最好有源代码,感谢! 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
可以采用下述方法:
。。。
l = grid1.Left '保存grid的原始X坐标
w = grid1.Width '保存grid的原始宽度
If grid1.Width < grid1.ColPos(i) Then 'i 是列的下标
grid1.Left = grid1.Left - grid1.ColWidth(i) 'grid左移一列的宽度
grid1.Width = grid1.Width + grid1.ColWidth(i) 'grid加宽一列的宽度
End If
If i>=Grid1.cols-1 Then
grid1.Left = l '回复原状
grid1.Width = w
End If
以上是对列的处理,行的处理类似。
。。。
。。。
l = grid1.Left '保存grid的原始X坐标
w = grid1.Width '保存grid的原始宽度
If grid1.Width < grid1.ColPos(i) Then 'i 是列的下标
grid1.Left = grid1.Left - grid1.ColWidth(i) 'grid左移一列的宽度
grid1.Width = grid1.Width + grid1.ColWidth(i) 'grid加宽一列的宽度
End If
If i>=Grid1.cols-1 Then
grid1.Left = l '回复原状
grid1.Width = w
End If
以上是对列的处理,行的处理类似。
。。。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询