Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.View = ViewMode.SmallIcon '显示模式为小图标
lvw.CheckBoxes = True
For Each dr As DataRow In DataTables("商品").DataRows '从数据表中提取数据
' Dim Key As String = dr("ppp")
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
Dim Key As String = "c:\图片\" & dr("ppp")'
lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
r.ImageKey = Key '指定图标键值
r.Text = dr("ppp") '指定行的标题
r.Name = r.Text '将行的名称设置为标题,也就是国家
Next
lvw.ResumeRedraw() '恢复绘制
已经解决了。谢谢
[此贴子已经被作者于2017/3/27 13:59:34编辑过]