MsflexGrid或VsflexGrid控件的滚动条问题

Question

请问怎样使MsflexGrid或VsflexGrid控件的垂直滚动条始终可见（目前只有行数超过了才可见，想达到不管行数有多少都让它呈可见状态）

Answer 1

最好的方法，用所有的行充满flexgrid的区域（不一定填充数据了），可以把颜色设置的和背景色相同

Answer 2

刚找出这样一些代码，但不懂它的意思，也不知道怎么加进程序中来实现我想要达到的效果
现帖出来望大家帮忙解释一下，先谢谢了！
如何判断msflexgrid有无滚动条 Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long 
Public Const SB_HORZ = &H0 
Public Const SB_VERT = &H1 Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见性 
Dim i As Long 
VsScroll = False 
i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos) 
If lpMaxPos <> lpMinPos Then VsScroll = True 
End Function Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见性 
Dim i As Long 
HeScroll = False 
i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos) 
If lpMaxPos <> lpMinPos Then HeScroll = True 
End Function 

Answer 3

在Flexgrid边上加上一个ScrollBar控制吧

Answer 4

“在Flexgrid边上加上一个ScrollBar控制”起不是变的很麻烦了，还要控制滚动条的移动来带动Flexgrid的行也要跟着移动