比如
……
For i As Integer = 0 To cls.Length - 1 '增加列
Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
c.Name = cls(i) '指定列名
c.Text = cls(i) '指定标题,这里标题和列名相同
c.Width = wds(i) '指定列宽
Next
Dim drs As List(of DataRow )= DataTables("导航").Select ("[分类] = '我的首页' and 可见=true","序号") '增加分组
For Each dr As DataRow In drs
If lvw.Groups.contains(dr("分组")) =False Then
Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
grp.Name = dr("分组")
grp.Text = dr("分组")
End If
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
Dim key As String= dr("图标")
lvw.Images.AddImage(Key, Key, Key) '添加代表这个名称的一对图标
r.ImageKey = Key '指定图标键值
r.Group = dr("分组") '指定所属分组
r.Tag = dr
If dr("可用") = False Then r.ForeColor = Color.gray ‘这里设置文字颜色，如果要使用灰色图标，需要另外提供一套灰色的图标文件，然后上面添加灰色的图标后，设置对应的ImageKey 即可
……
加好友 
发短信
Post By：2019/9/18 15:38:00 [显示全部帖子]
