【CSDN】【如何根据MSFlexGrid控件中内容的字符长度自动调整列宽，保证所有字符可见】

[drillmaster11]

Dim Max As Integer
Dim i As Integer
Dim j As Integer
For j = 0 To MSFlexGrid1.Cols - 1
Max = 0
For i = 0 To MSFlexGrid1.Rows - 1
If Len(Trim(MSFlexGrid1.TextMatrix(i, j))) > Max Then Max = Len(Trim(MSFlexGrid1.TextMatrix(i, j)))
Next i
MSFlexGrid1.ColWidth(j) = Max * 300
Next j

[callzjy2]

Dim i, j As Integer
Dim Max As Double
With MSFlexGrid1
For i = 0 To .Cols - 1
Max = 0
If .ColWidth(i) <> 0 Then
For j = 0 To .Rows - 1
If Me.TextWidth(.TextMatrix(j, i)) > Max Then
Max = Me.TextWidth(.TextMatrix(j, i))
End If
Next
.ColWidth(i) = Max + 110
End If
Next
End With

[since1990]

up