Dim ct As New Windows.Forms.ListView
Dim Lvw_Item As Windows.Forms.Listviewitem
Dim ImageList_Large As System.Windows.Forms.ImageList
ct.Dock = Windows.Forms.DockStyle.Fill
ct.Name = "ListView1"
e.Form.Controls("Panel1").BaseControl.Controls.Add(ct)
ct.Alignment = System.Windows.Forms.ListViewAlignment.Top
ct.View = System.Windows.Forms.View.Tile
e.Form.Controls("Panel1").BaseControl.Controls("ListView1").Items.Clear()
Dim listViewGroup1 As System.Windows.Forms.ListViewGroup = New System.Windows.Forms.ListViewGroup("基础资料", System.Windows.Forms.HorizontalAlignment.Left)
Dim listViewGroup2 As System.Windows.Forms.ListViewGroup = New System.Windows.Forms.ListViewGroup("销售平台", System.Windows.Forms.HorizontalAlignment.Left)
Dim listViewGroup3 As System.Windows.Forms.ListViewGroup = New System.Windows.Forms.ListViewGroup("管理平台", System.Windows.Forms.HorizontalAlignment.Left)
listViewGroup1.Header = "基础资料"
listViewGroup1.Name = "基础资料"
listViewGroup2.Header = "销售平台"
listViewGroup2.Name = "销售平台"
listViewGroup3.Header = "管理平台"
listViewGroup3.Name = "管理平台"
ImageList_Large = New System.Windows.Forms.ImageList
ct.Groups.AddRange(New System.Windows.Forms.ListViewGroup() {listViewGroup1, listViewGroup2,listViewGroup3})
Dim Names() As String ={"基础设置","财务设置","员工信息"}
For i As Integer = 0 To Names.Length -1
    Lvw_Item = New Windows.Forms.ListviewItem(Names(i),i,listViewGroup1)
    ImageList_Large.Images.Add(i,GetImage(Names(i) & ".png"))
    ct.Items.Add(Lvw_Item)
Next
Dim Values() As String ={"销售中心","管理中心","权限管理"}
For n As Integer = 0 To Values.Length -1
    Lvw_Item = New Windows.Forms.ListviewItem(Values(n),n,listViewGroup2)
     ImageList_Large.Images.Add(n,GetImage(Values(n) & ".png"))
    ct.Items.Add(Lvw_Item)
Next
Dim mns() As String ={"管理平台"}
For Index As Integer = 0 To mns.Length -1
    Lvw_Item = New Windows.Forms.ListviewItem(mns(Index),Index,listViewGroup3)\'
    ImageList_Large.Images.Add(Index,GetImage(mns(Index) & ".png"))
    ct.Items.Add(Lvw_Item)
Next
AddHandler ct.MouseDoubleClick, AddressOf Lvw_MainMouseDoubleClick

  这个代码怎么修改,可以加入图标?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态listniew.rar

  实在不明白怎么动态加入图标,请高手帮忙了!谢谢!