VB里显示数据的MSFlexGrid1控件

Question

这些显示数据的控件，要怎么设置才能使每一行的高度大点的呢要怎么样才可以使用显示的数据适应格子的宽度呢，比如一些字段的值好大，就显示不下的问题，谢谢

Answer 1

Option Explicit
Private Enum MergeCellsSettings
flexMergeNever = 0
flexMergeFree = 1
flexMergeRestrictRows = 2
flexMergeRestrictColumns = 3
flexMergeRestrictAll = 4
End EnumPrivate Sub Form_Load()
  MSFlexGrid1.WordWrap = True
Dim MergeCells As MergeCellsSettings
MSFlexGrid1.AllowBigSelection = True
MSFlexGrid1.AllowUserResizing = flexResizeColumns
MSFlexGrid1.CellAlignment = 3
MSFlexGrid1.Cols = 14
MSFlexGrid1.Rows = 18
MSFlexGrid1.RowHeight(3) = 800
MSFlexGrid1.ColWidth(3) = 200
MSFlexGrid1.BackColor = RGB(244, 215, 223)
MSFlexGrid1.BackColorBkg = vbRed
MSFlexGrid1.BackColorFixed = vbBlue
MSFlexGrid1.Row = 0
  MSFlexGrid1.WordWrap = True'MSFlexGrid1.TextMatrix(1, 1) = 89
MSFlexGrid1.TextMatrix(2, 1) = 8957957
MSFlexGrid1.TextMatrix(8, 0) = 579
MSFlexGrid1.MergeCells = flexMergeFree
MSFlexGrid1.MergeCol(2) = True
MSFlexGrid1.MergeRow(5) = True
MSFlexGrid1.TextStyle = flexTextRaised
MSFlexGrid1.Text = 45
MSFlexGrid1.TextStyleFixed = flexTextRaised
MSFlexGrid1.CellForeColor = vbRed
MSFlexGrid1.CellFontSize = 12
MSFlexGrid1.LeftCol = 3
MSFlexGrid1.LeftCol = 3MSFlexGrid1.CellBackColor = vbGreen
MSFlexGrid1.FocusRect = flexFocusLight
MSFlexGrid1.FillStyle = flexFillRepeat
 MSFlexGrid1.GridLines = flexGridInset
End Su