觉得微软的实现方式真得很郁闷
listview必须绑定imagelist,图片需先加载到imagelist,然后需要指定icon引用的key或index,非常麻烦是否通过可以获取缩略图图标的句柄然后修改呢?

解决方案 »

  1.   


    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 = picpicbox.FontSize = 10
    picbox.Print "打点水印"  '打点水印在图上面
    Set pic = picbox.ImageMe.Controls.Remove "picbox"'把图片放到imageList
    ImageList1.ListImages.Add 1, "icon1", pic'绑定,使ListView1使用imagelist1的图标
    Set ListView1.Icons = ImageList1'listtview1添加一个项目,用的是imagelist1中刚加载的图标
    ListView1.ListItems.Add , , "项目1", "icon1"
      

  2.   

    你们都赵老师(zhao4zhong1)的学生。
      

  3.   

    不好意思,事情忙,一晃就是1个月了,基本能解决我的问题,虽然我是想直接修改IMAGELIST里面的图标,结题吧