首先,将LISTVIEW控件与ImageList1控件关联,将LISTVIEW控件列首增加三列
将下面代码作为例子,参考一下吧
Private Sub Command1_Click()
Dim Itemx As ListItem
With ListView1
For i = 1 To 2
Set Itemx = ListView1.ListItems.Add(, "L" & i, "sdf")
Itemx.SmallIcon = 1
Itemx.Icon = 1
Itemx.SubItems(1) = "姓名"
Itemx.ListSubItems(1).ReportIcon = 1'第一列图标
Itemx.SubItems(2) = "性别"
Itemx.ListSubItems(1).ReportIcon = 2'第二列图标
Next
End With
'这样就实现你提出的问题了,LISTVIEW1控件第二列也能添加上图标
End Sub
===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================