VB中如何将listview的表头文字置中显示?
VB中如何将listview的表头文字置中显示?也就是ColumnHeaders字段文字.还有如果想表身内容的也置中显示,如果操作.这位大哥,如果我只要表头置中,而表身的...
VB中如何将listview的表头文字置中显示?也就是ColumnHeaders字段文字.
还有如果想表身内容的也置中显示,如果操作.
这位大哥,如果我只要表头置中,而表身的内容不用,怎么做?因为在很多应该中都是是只要表头置中,而表身都是左对齐. 展开
还有如果想表身内容的也置中显示,如果操作.
这位大哥,如果我只要表头置中,而表身的内容不用,怎么做?因为在很多应该中都是是只要表头置中,而表身都是左对齐. 展开
展开全部
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函数发送控件消息可以实现,不过这似乎有“高射炮打蚊子”之嫌了。
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函数发送控件消息可以实现,不过这似乎有“高射炮打蚊子”之嫌了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询