VB datagrid控件怎么设置列宽

Posted 2023-03-24

我在form-load事件中写了DataGrid1.Columns(0).Width = 1500
DataGrid1.Columns(1).Width = 5000
为什么运行的时候一点效果都没有呢，每一列的宽度仍然是一样的

参考技术A datagrid的右击，选择属性，找到“布局（layout）”选项页，看看AllowSizing后面的复选框打钩了吗，没打勾的话就不能改变列宽本回答被提问者采纳 参考技术B 1、你可以用楼上的方法，在form_load()中设置DataGrid1.Columns(0).Width
=
2000为第一列，其他依次类推。
2、你可以右击datagrid选择编辑》手工拖动列宽到合适的位置即可。 参考技术C Private Sub BindDataGrid()'定义一个方法
Dim myTable As DataTable = LDB.GetAllLinkman(SysUserID, "Linkman").Tables(0)
With DataGrid1' 自定义类型，下列为可选参数
.CaptionText = "Linkman列表"
.CaptionVisible = False
.DataSource = myTable.DefaultView
.ReadOnly = True
.TableStyles.Clear()
End With
CreateTableStyle(myTable)
End Sub
Private Sub CreateTableStyle(ByVal mytable As DataTable)
Dim Tab1 As New DataGridTableStyle
Tab1.MappingName = mytable.TableName

Dim Col0 As New DataGridTextBoxColumn
Col0.MappingName = "ID"
Col0.HeaderText = "ID"
Col0.Width = 0

Dim Col1 As New DataGridTextBoxColumn
Col1.MappingName = "Cate.Name"
Col1.HeaderText = "类别"
Col1.Width = 100 '设置列宽
Dim Col2 As New DataGridTextBoxColumn
Col2.MappingName = "Linkman.Name"
Col2.HeaderText = "联系人"
Col2.Width = 100 '设置列宽
Tab1.GridColumnStyles.AddRange(New DataGridColumnStyle() Col0, Col1, Col2)
DataGrid1.TableStyles.Add(Tab1)
End Sub 参考技术D 不知道你有没有用adodc控件，如果用了的话，设置的列宽代码要在adodc.refresh 后，不然没有效果的。

使用VB6的Datagrid列宽

我正在使用VB6。下面的代码不起作用。另外，在VB6 datagrid中进行多选。

如何设置datagrid列宽？

With DataGrid1
    .Columns(0).Width = "7000"
    .Columns(1).Width = "3000"
End With

答案

使用columns width参数在Visual Basic 6.0中设置DataGrid的列宽。

例如：

DataGrid1.Columns(0).width = 1000

它将第一列的宽度设置为1000