如何设置ListView控件中的列头的颜色

发布网友发布时间：2023-10-23 18:37

共2个回答

热心网友时间：2024-11-23 03:22

一、改变颜色

在VB6的ListView控件中，可以改变项目及其子项的前景色、背景色。实现方法如下
（1）在窗体上布置一个ListView控件

（2）窗体代码如下
Option Explicit

Private Sub Form_Load()
Dim itemX As ListItem

With ListView1
.View = lvwReport

.ColumnHeaders.Add , , "类别"
.ColumnHeaders.Add , , "品名1"
.ColumnHeaders.Add , , "品名2"

Set itemX = .ListItems.Add(, , "水果")
itemX.SubItems(1) = "苹果"
itemX.SubItems(2) = "香蕉"
ChangeForeColor itemX, &H8000& '墨绿色

Set itemX = .ListItems.Add(, , "饮料")
itemX.SubItems(1) = "果汁"
itemX.SubItems(2) = "可乐"
ChangeForeColor itemX, vbRed '红色

Set itemX = .ListItems.Add(, , "文具")
itemX.SubItems(1) = "铅笔"
itemX.SubItems(2) = "橡皮"
ChangeForeColor itemX, vbBlue '蓝色

End With
End Sub

'-------------------------------------
' 修改ListView 项的前景色颜色
'-------------------------------------
Private Sub ChangeForeColor( _
ByVal item As ListItem, _
ByVal NewColor As Long)
'设置项的颜色
item.ForeColor = NewColor
'设置所有子项的颜色
Dim subItem As ListSubItem
For Each subItem In item.ListSubItems
subItem.ForeColor = NewColor
Next
End Sub

热心网友时间：2024-11-23 03:22

ListView的列头是用th写的，你可以在aspx页面的<head></head>里面加代码：

<style>
table{border:0px; width:1000px; margin:0 auto; margin-bottom:100px;}
th{border:0px;background-color:#EEE;border-bottom:1px solid #ccc}
</style>
---------------------
这样就可以改变颜色了，具体颜色你可以自己改一下，background-color:#EEE;这个属性