求助为什么不显示图片呀？
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '用大图标模式
Dim Multi As String = DataTables("全景菜单").GetComboListString("分组名称")
Dim Values() As String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
vg.Name = values(Index) '指定分组名称
vg.Text = values(Index) '指定分组标题
For Each R As DataRow In DataTables("全景菜单").Select(" 分组名称 = '" & Values(Index) & "' ")
Dim it As WinForm.ListViewRow = lvw.Rows.Add()
it.Group = r("分组名称") '归纳分组
it.Text = r("分列名称")
it.ImageKey = r("图标地址")
Next
Next
此主题相关图片如下：阿里旺旺图片20170929150418.jpg
加好友 
发短信
Post By：2017/9/29 15:07:00 [只看该作者]
