【学生】设置MSF控件自动调整列宽

最新推荐文章于 2020-12-21 12:37:06 发布

原创

最新推荐文章于 2020-12-21 12:37:06 发布 · 961 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#MSFlexGrid #学生信息管理系统

问题：

在查询记录的窗体用到了MSFlexGrid控件，但是有的记录字数太多，被控件给“吞”了，这个时候可以设置自动调整列宽。

解决：

在模块中定义：

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, 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)) > dbwidth Then
                        dblwidth = frmCur.TextWidth(.TextMatrix(j, i))
                    End If
                Next
                    .ColWidth(i) = db