如何让DataGrid的列标题居中？

Question

这个问题我也想问，那位知道具体解决方法请给我发帖子或者邮件[email protected]

Answer 1

Caption 前加几个空格
DataGrid1.Columns.Item(i).Caption =  Space(5) & DataGrid1.Columns.Item(i).Caption

Answer 2

谁有例子发邮件给我：[email protected]

Answer 3

没有人告诉我答案我就不结这个贴子了！我邮箱换成：[email protected]

Answer 4

用True DBGrid7.0代替dbgrid

Answer 5

True DBGrid7.0
VB6.0中有吗？是那个？

Answer 6

添加和删除一列
要在运行时添加一列，可以使用 Add 方法。如果首先声明一个变量，并将新对象赋给该变量，就可以用简明的代码设置各种属性。Private Sub AddColumn()
   ' 在最右边的位置添加一列。然后设置其 Visible、Width、
   ' Caption、以及 Alignment 属性。DataField 属性则指定 
   ' 该列将绑定到哪一个字段。
   Dim c As Column
   Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)
   With c
      .Visible = True
      .Width = 1000
      .Caption = "我的新列"
      .DataField = Adodc1.Recordset.Fields("ProductName").Name
      .Alignment = dbgRight
   End With
End Sub

Answer 7

添加和删除一列
要在运行时添加一列，可以使用 Add 方法。如果首先声明一个变量，并将新对象赋给该变量，就可以用简明的代码设置各种属性。Private Sub AddColumn()
  ' 在最右边的位置添加一列。然后设置其 Visible、Width、
  ' Caption、以及 Alignment 属性。DataField 属性则指定 
  ' 该列将绑定到哪一个字段。
  Dim c As Column
  Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)
  With c
      .Visible = True
      .Width = 1000
      .Caption = "我的新列"
      .DataField = Adodc1.Recordset.Fields("ProductName").Name
      .Alignment = dbgcenter
  End With
End Sub