是否可以直接修改VB6 listview缩略图图标
觉得微软的实现方式真得很郁闷
listview必须绑定imagelist，图片需先加载到imagelist，然后需要指定icon引用的key或index，非常麻烦
是否通过可以获取缩略图图标的句柄然后修改呢？
[解决办法]
Dim pic As StdPicture
Set pic = LoadPicture("d:\dd.bmp") '有了picture对象，想怎样修改都成
'pic.Handle 是位图句柄
'这里用最简单的方式修改，用PictureBox来完成
'先添加一个pictureBox
Dim picbox As PictureBox
Set picbox = Me.Controls.Add("vb.PictureBox", "picbox")
picbox.ScaleMode = 3 '单位是像素
picbox.Height = 100 * Screen.TwipsPerPixelY
picbox.Width = 100 * Screen.TwipsPerPixelX
picbox.AutoRedraw = True
picbox.Visible = False
Set picbox.Picture = pic
picbox.FontSize = 10
picbox.Print "打点水印" '打点水印在图上面
Set pic = picbox.Image
Me.Controls.Remove "picbox"
'把图片放到imageList
ImageList1.ListImages.Add 1, "icon1", pic
'绑定，使ListView1使用imagelist1的图标
Set ListView1.Icons = ImageList1
'listtview1添加一个项目，用的是imagelist1中刚加载的图标
ListView1.ListItems.Add , , "项目1", "icon1"
