Question

VB中如何将listview的表头文字置中显示?

VB中如何将listview的表头文字置中显示?也就是ColumnHeaders字段文字.
还有如果想表身内容的也置中显示,如果操作.
这位大哥,如果我只要表头置中,而表身的内容不用,怎么做?因为在很多应该中都是是只要表头置中,而表身都是左对齐.

Answer 1

Private Sub Command1_Click()
Dim xx As ListItem
Set xx = ListView1.ListItems.Add(, , "123")
xx.SubItems(1) = "456"
xx.SubItems(2) = "789"
Set xx = Nothing
End Sub

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "第1列", 1000
ListView1.ColumnHeaders.Add , , "第2列", 1000
ListView1.ColumnHeaders.Add , , "第3列", 1000
ListView1.ColumnHeaders(2).Alignment = lvwColumnCenter
ListView1.ColumnHeaders(3).Alignment = lvwColumnCenter
End Sub

以上代码是使ListView1的第二列和第三列的表头和内容均置中显示。注意，第一列只能靠左显示，不能置中或靠右，这是控件本身规定的。
如果想表头置中，而表身的内容靠左，则该控件本身的功能是无法实现的，也许用API函数发送控件消息可以实现，不过这似乎有“高射炮打蚊子”之嫌了。

Answer 2

Set Nodxx = TrV1.Nodes.Add(, , , 1)
Nodxx.Text = " 表头文字" '以空格使其居中，旁无办法。