主题：关于ListView加入图标的问题(已解决)

'试一下

Dim ct As New Windows.Forms.ListView

Dim Lvw_Item As Windows.Forms.Listviewitem

Dim ImageList_Large As New System.Windows.Forms.ImageList

ct.Dock = Windows.Forms.DockStyle.Fill

ct.Name = "ListView1"

ct.Alignment = System.Windows.Forms.ListViewAlignment.Top

ct.View = System.Windows.Forms.View.Tile

ct.Items.Clear()

Dim listViewGroup1 As New System.Windows.Forms.ListViewGroup("基础资料", System.Windows.Forms.HorizontalAlignment.Left)

listViewGroup1.Header = "基础资料"

listViewGroup1.Name = "基础资料"

Dim listViewGroup2 As New System.Windows.Forms.ListViewGroup("销售平台", System.Windows.Forms.HorizontalAlignment.Left)

listViewGroup2.Header = "销售平台"

listViewGroup2.Name = "销售平台"

Dim listViewGroup3 As New System.Windows.Forms.ListViewGroup("管理平台", System.Windows.Forms.HorizontalAlignment.Left)

listViewGroup3.Header = "管理平台"

listViewGroup3.Name = "管理平台"

ct.Groups.AddRange(New System.Windows.Forms.ListViewGroup() {listViewGroup1, listViewGroup2,listViewGroup3})

Dim Names() As String ={"基础设置","财务设置","员工信息"}

For i As Integer = 0 To Names.Length -1

    ImageList_Large.Images.Add(Names(i),GetImage(Names(i) & ".png"))

    Lvw_Item = New Windows.Forms.ListviewItem(Names(i),Names(i),listViewGroup1)

    ct.Items.Add(Lvw_Item)

Next

Dim Values() As String ={"销售中心","管理中心","权限管理"}

For n As Integer = 0 To Values.Length -1

    ImageList_Large.Images.Add(Values(n),GetImage(Values(n) & ".png"))

    Lvw_Item = New Windows.Forms.ListviewItem(Values(n),Values(n),listViewGroup2)

    ct.Items.Add(Lvw_Item)

Next

Dim mns() As String ={"管理平台"}

For Index As Integer = 0 To mns.Length -1

    ImageList_Large.Images.Add(mns(Index),GetImage(mns(Index) & ".png"))

    Lvw_Item = New Windows.Forms.ListviewItem(mns(Index),mns(Index),listViewGroup3)'

    ct.Items.Add(Lvw_Item)

Next

AddHandler ct.MouseDoubleClick, AddressOf Lvw_MainMouseDoubleClick

e.Form.Controls("Panel1").BaseControl.Controls.Add(ct)