'试一下
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)
加好友 
发短信
Post By：2012/6/3 12:10:00 [只看该作者]
