神马品牌网邪恶少女漫画索尼子:vb 修改listview某行的图标
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 08:33:49
现在有个问题解决不了：在程序运行过程如何修改任意某行的图标，图标来源于imagelist1里。请高手帮忙解决这个问题，非常感谢！
Public Sub AllUserList(WhereAdd As ListView) '将所有用户列出到ListView控件
Dim UserW As String, ii As String, li As ListItem, a As Integer, i As Integer
a = FreeFile
Open "D:\台帐系统\ini\用户信息.ini" For Input As a
Do Until EOF(a)
Line Input #a, UserW
i = InStr(UserW, "|")
If Mid(UserW, i - 1, 1) = "在" Then
Set li = WhereAdd.ListItems.Add(, , Mid(UserW, 1, i - 2), 1, 1)
ElseIf Mid(UserW, i - 1, 1) = "离" Then
Set li = WhereAdd.ListItems.Add(, , Mid(UserW, 1, i - 2), 2, 2)
End If
li.SubItems(1) = Mid(UserW, i + 1, Len(UserW) - i)
Loop
Close #a
WhereAdd.View = lvwReport
End Sub
给你个示例吧!
Sub LoadListView()
'ListView值输入
MousePointer = 11
'为 ColumnHeader 对象创建对象变量。
ListView1.ColumnHeaderIcons = ImageList1
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Dim ClmX As ColumnHeader
'添加 ColumnHeaders。列宽度等于控件宽度
'除以 ColumnHeader 对象的数目。
Set ClmX = ListView1.ColumnHeaders.Add(, , "任务编号", 1000)
Set ClmX = ListView1.ColumnHeaders.Add(, , "主题", 4300)
ImageList1.ListImages(32).Key = "zt"
ClmX.Icon = "zt"
Set ClmX = ListView1.ColumnHeaders.Add(, , "截止日期", 1200)
Set ClmX = ListView1.ColumnHeaders.Add(, , "状态", 1000)
ImageList1.ListImages(36).Key = "zz"
ClmX.Icon = "zz"
ListView1.BorderStyle = ccFixedSingle '设置 BorderStyle 属性。
ListView1.View = lvwReport '设置 View 属性为报表型。
ListView1.Arrange = lvwAutoTop
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList1
Dim Are As Recordset
Set Are = Db.OpenRecordset("select * from 个人任务表 order by 截止日期")
Dim itmX As ListItem 'ListItem 变量。
Set itmX = ListView1.ListItems.Add(Il, , Are![任务编号], ImageList1.ListImages(13).Index, ImageList1.ListImages(13).Index)
itmX.SubItems(1) = CStr(Are![主题])
itmX.SubItems(2) = CStr(Are![截止日期])
itmX.SubItems(3) = CStr(Are![状态])
End If
MousePointer = 1
End Sub
直接修改它的 SmallIcon 属性即可.
Private Sub listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Item.SmallIcon = "ImageList1里的图标索引/KEY"
End Sub