我只找到个设置行距的,我知道可以手动拖动的,但想问下可以用程序进行初始化设置吗?

解决方案 »

  1.   

    DataGrid1.Columns(1).Width = 1000 '设置第二列的列宽
      

  2.   

    Private Sub Command1_Click()
        Dim i%
        For i = 0 To DataGrid1.Columns.Count - 1
            DataGrid1.Columns(i).Width = 1000  '统一设置DataGrid的列宽
        Next
    End Sub
      

  3.   

    可否对DataGrid的标题栏和每以栏的宽度进行设置?
      方法一:程序中间设置。
      A1:设置DataGrid标题:DataGrid1.Columns(0).Caption = "编号".
      A2:设置 DataGrid宽度:DataGrid1.Columns(0).Width = 2000,如果需要设置成此列隐藏则DataGrid1.Columns(0).Width = 0。
      方法二:手工进行设置。
      A1:设置DataGrid显示的列数:DataGrid默认是2列,如果需要显示的列数大与2列,则邮件属性叶选择[编辑],然后属性叶面上会出现[增加],[删除]等,根据自己的需要进行操作。
      A2:设置每一列显示的标题:点击属性叶的[属性],选择[数据行]叶面,设置每一列的标题和将来所要对应的数字库字段,这样确定以后DataGrid的标题手工设置成功。
      A3:设置宽度,如上方法但是选择在版面配置修改相对应的列宽度。