做一个按钮,让它取到datagrid的列宽
按钮代码如下;
'MSFlexGrid1为datagrid的名称
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 10
Dim strtemp As String
Dim i As Long
For i = 1 To MSFlexGrid1.Cols - 1
strtemp = strtemp & "/" & MSFlexGrid1.ColWidth(i)
Next i
MsgBox (strtemp), vbOKCancel, "列宽"
在设计视图下,右键datagrid的属性中的"允许用户调整大小"选中"1-colums".
然后运行程序,调整表格列宽,按下按钮就可得到各列的列宽.
回到设计界面,在初始化表格中,将各列的列宽设置成得到的只就可以了.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024