怎样通过代码控制datagrid的列的宽度？？

[kink]

DG1.Columns.Item(0).Width = 10
结果第一列看不见了
DG1.DefColWidth = 10
结果没变化

我想让每个列的宽度是5个汉字的宽度

[kink]

顶

[of123]

DG1.ColWidth(0) = 5 * DG1.Font.Size

[haipingma]

DataGrid1.Columns(0).Width = 150

[啊维]

dgMain.Columns(2).Width = 1500
dgMain.Columns(3).Width = 1800
dgMain.Columns(4).Width = 800
dgMain.Columns(5).Width = 1300
dgMain.Columns(6).Width = 900
dgMain.Columns(7).Width = 1000
dgMain.Columns(8).Width = 1200

想要那列多长就设定相应值了

[mylzw]

首先在窗体上放置一个隐藏的Picture控件，因为下面要借助Picture控件的TextWidth方法来测量当前DataGrid控件表头文字的宽度。
代码如下：
Dim i As Long
'设置Picture1的字体格式与DataGrid的表头字体格式相同
Set Picture1.Font = DataGrid1.HeadFont
For i = 0 To DataGrid1.Columns.Count - 1 '遍历所有列
'使用Picture控件的TextWidth方法返回5个汉字的宽度,并加上100的校正间距
DataGrid1.Columns(i).Width = Picture1.TextWidth("五个汉字宽") + 100
Next

[artoksxb]

datagrid1.columns(0).width=2*datagrid1.columns(0).width
'-----//这样设置比较好点吧。

[wxrwan]

DG1.Columns.Item(0).Width = 10
10太小了