Dim lvw As WinForm.ListView = e.Sender
Dim dr As DataRow = DataTables("花型基础资料").DataRows(e.Index) '根据行位置从数据表中取得对应的DataRow
Dim Key As String = dr("花型图片")
lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
e.Row.Imagekey = key
For Each cl As WinForm.ListViewColumn In lvw.Columns
Next
另,,虚拟模式下怎么不能拖动图标.lvw.AllowDrag = True
lvw.AllowDrop = True
这两项好像没有效果了.
[此贴子已经被作者于2014-4-2 23:19:27编辑过]