自动调节MSHFlexGrid控件的行高列宽

做机房收费系统在做学生上机查看机上记录模块的时候，使用到了MSHFlexGrid这个控件。用这么控件显示数据的时候，遇到了小小的问题。程序运行到显示这个模块的界面的时候，数据总是显示不在界面内，但是导出Execel之后，数据显示是完整的。这是为什么呢？肯定是数据过长，导致该控件无法完整的显示数据。

后来从贾林那里淘来了一个函数。能够根据数据自动调整MSHFlexGrid控件的行高，列宽。

函数如下：

Option Explicit

Public Sub AdjustColWidth(frmCur As Form, _
gridCur As Object, _
Optional bNullRow As Boolean = True, _
Optional dblIncWidth As Double = 0)
'功能 ：自动调整Grid各列列宽为最合适的宽度
'参数
'frmcur 当前工作窗体
'gridcur 当前调整的Grid

Dim i As Integer
Dim j As Integer
Dim dblWidth As Double

With gridCur
For i = 0 To .Cols - 1
dblWidth = 0
If .ColWidth(i) <> 0 Then
For j = 0 To .Rows - 1
If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
End If
Next j
.ColWidth(i) = dblWidth + dblIncWidth + 100
End If
Next i
End With

End Sub
函数的调用非常简单

例如：AdjustColWidth frmStCheckOnRs, MSHFlexGrid