试试这个:
在窗体上加一个ListviewPrivate Sub Form_Load()
Dim itmTemp As ListItem
Dim itmSub As ListSubItem With ListView1
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Column 1"
.ColumnHeaders.Add , , "Column 2"
.View = lvwReport
.ListItems.Clear
Set itmTemp = .ListItems.Add(, , "Test")
Set itmSub = itmTemp.ListSubItems.Add(, , "Sub1")
itmSub.ForeColor = &HFF
End With
End Sub
在窗体上加一个ListviewPrivate Sub Form_Load()
Dim itmTemp As ListItem
Dim itmSub As ListSubItem With ListView1
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Column 1"
.ColumnHeaders.Add , , "Column 2"
.View = lvwReport
.ListItems.Clear
Set itmTemp = .ListItems.Add(, , "Test")
Set itmSub = itmTemp.ListSubItems.Add(, , "Sub1")
itmSub.ForeColor = &HFF
End With
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货