mshflexgrid的列宽能不能按需求来设定

Question

mshflexgrid的列宽能不能按需求来设定？？？？

Answer 1

可以啊
用MSHFlexGrid1.colwidth(0)=500
  MSHFlexGrid.colwidth(1)=2000
依次类推就可以了啊！

Answer 2

你说的是自动设置列宽吧
msflexgrid没有此属性，给你一个函数:Public Sub AdjustColWidth(frmCur As Form, gridCur As MSFlexGrid, Optional bNullRow As Boolean = True)
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)) > dblWidth Then
                        dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
                    End If
                Next
                .Colwidth(i) = dblWidth + 100
            End If
        Next
    End With
End Sub