1. VB msflexgrid列宽可以随内容自动变化吗 如何做到
如果行高是自动的，那么是根据font大小会自动调整。经过试验，在各种font大小情况下，行高总是大约等于一个西文字符宽度的2.2倍。
根据这个情况，你可以先取得某列中每单元格的字符长度（用StrConv 计算中英文混合字串的长度，中文算2个），然后根据其中最长的长度，再根据行高RowHeight值，计算出一个近似的列宽ColWidth，然后设置它。
2. VB中DataGrid控件如何根据字段内容自动调整列宽度
思路：先获取列中字段最大宽度，再设置DataGrid当前列的宽度。
用循环一列一列的设置，
for i = 0 to datagrid1.colums.Count
for j = 0 to datagrid1.Rows.Count
……比较Len，找到最大，赋值
next
next
............................
先定义一个Sub过程AutoSizeCol，用来调整Datagrid中的列宽。
Public Sub AutoSizeCol(ByVal col As Integer) ’当前列
Dim width As Single
width = 0
Dim numRows As Integer
numRows = CType(dataGrid1.DataSource, DataTable).Rows.Count ‘当前列的行数
Dim g As Graphics
g = Graphics.FromHwnd(dataGrid1.Handle)
Dim sf As StringFormat
sf = New StringFormat(StringFormat.GenericTypographic)
Dim size As SizeF
Dim i As Integer
i = 0
Do While (i < numRows)
size = g.MeasureString(dataGrid1(i, col).ToString, dataGrid1.Font, 500, sf)
If (size.Width > width) Then
width = size.Width ’得到字符最多的行的字符数
End If
i = (i + 1)
Loop
g.Dispose()
dataGrid1.TableStyles("customers").GridColumnStyles(col).Width = CType(width, Integer)
'应用到列
End Sub
下面就可以表格内容来定义整张表所有列的宽度了。
Public Sub AutoSizeTable()
Dim numCols As Integer
numCols = CType(dataGrid1.DataSource, DataTable).Columns.Count
Dim i As Integer
i = 0
Do While (i < numCols) '循环每一列
AutoSizeCol(i) ‘调用上面的函数
i = (i + 1)
Loop
End Sub
（转并注释） <br>