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
这个代码怎么修改,可以加入图标?
[此贴子已经被作者于2012-6-3 19:02:03编辑过]