是否可以直接修改VB6 listview缩略图图标 觉得微软的实现方式真得很郁闷listview必须绑定imagelist,图片需先加载到imagelist,然后需要指定icon引用的key或index,非常麻烦是否通过可以获取缩略图图标的句柄然后修改呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim pic As StdPictureSet pic = LoadPicture("d:\dd.bmp") '有了picture对象,想怎样修改都成'pic.Handle 是位图句柄'这里用最简单的方式修改,用PictureBox来完成'先添加一个pictureBoxDim picbox As PictureBoxSet picbox = Me.Controls.Add("vb.PictureBox", "picbox")picbox.ScaleMode = 3 '单位是像素picbox.Height = 100 * Screen.TwipsPerPixelYpicbox.Width = 100 * Screen.TwipsPerPixelXpicbox.AutoRedraw = Truepicbox.Visible = FalseSet picbox.Picture = picpicbox.FontSize = 10picbox.Print "打点水印" '打点水印在图上面Set pic = picbox.ImageMe.Controls.Remove "picbox"'把图片放到imageListImageList1.ListImages.Add 1, "icon1", pic'绑定,使ListView1使用imagelist1的图标Set ListView1.Icons = ImageList1'listtview1添加一个项目,用的是imagelist1中刚加载的图标ListView1.ListItems.Add , , "项目1", "icon1" 你们都赵老师(zhao4zhong1)的学生。 不好意思,事情忙,一晃就是1个月了,基本能解决我的问题,虽然我是想直接修改IMAGELIST里面的图标,结题吧 我错那里了?编译不通过。ActiveX DLL 请帮忙!VB6 + CR91.rpt +SQL Server2000 连接问题 一个小问题. 急寻vb里用ado访问sql server的例子:O 帮我找个控件 当使用DOEVENTS函数时SLEEP函数是放在它之前,还是放在它之后 关于VB中的Msflexgrid 问一个简单的问题:在VB里怎么样打印一个文件如d:\text.txt? 还有一个问题。 vb中如何快速检索? VB6.0串口通信问题 vb 可以实现登录超时的功能么?
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"