Private Sub Form_Load()
With MSHFlexGrid1
.Cols = 4
.Rows = 4
.TextMatrix(1, 1) = "1"
.TextMatrix(2, 1) = "2"
.TextMatrix(3, 1) = "3"
.TextMatrix(1, 2) = "这是一个行高自动调整的过程"
.TextMatrix(1, 3) = "短"
.TextMatrix(2, 2) = "短文本"
.TextMatrix(2, 3) = "这是一个行高自动调整的过程测试"
.TextMatrix(3, 2) = "可以了"
.TextMatrix(3, 3) = "好"
txt1.Text = Me.TextWidth(.TextMatrix(1, 2)) '(1,2)单元格文本宽度
txt2.Text = Me.TextWidth(.Te1041922384653647xtMatrix(1, 3)) '(1,2)单元格文本宽度
txt3.Text = Me.TextWidth(.TextMatrix(2, 2)) '(2,2)单元格文本宽度
txt4.Text = Me.TextWidth(.TextMatrix(2, 3)) '(2,3)单元格文本宽度
txt9.Text = Me.TextHeight(.TextMatrix(1, 2)) '(1,2)单元格文本高度
txt10.Text = Me.TextHeight(.TextMatrix(2, 3)) '(2,3)单元格文本高度
.WordWrap = True
End With
' AutoColWidth 100, Me, MSHFlexGrid1
' AutoRowHeight 100, Me, MSHFlexGrid1
End Sub
Private Sub Command1_Click()
'思想是：设置ColNum列为固定列宽Length，则1行显示文本；超过Length但未超过2*Length ，则分2行显示文本；
'超过2*Length但未超过3*Length ，则分3行显示文本。然后根据ColNum的TextHeight来设置行高
Dim Length As Integer, ColNum As Integer, RowNum As Integer, TextLength As Integer
Length = 0 '固定列宽,7个文字的宽度
With MSHFlexGrid1
