用LISTVIEW来显示图片，颜色失真。
具体是这样用的：
Dim sGSName As String
sGSName = Dir("F:\图像\*.jpg")Dim i As Integer
i = 1
Do While sGSName <> ""
Set imgX = ImageList1.ListImages.Add(i, , LoadPicture("F:\图像\" + sGSName))
Set itmx = ListView1.ListItems.Add()
itmx.Icon = i
itmx.text = sGSName
itmx.Tag = sGSName
sGSName = Dir
i = i + 1
Loop
颜色失真，而且速度很慢，有办法解决吗？
具体是这样用的：
Dim sGSName As String
sGSName = Dir("F:\图像\*.jpg")Dim i As Integer
i = 1
Do While sGSName <> ""
Set imgX = ImageList1.ListImages.Add(i, , LoadPicture("F:\图像\" + sGSName))
Set itmx = ListView1.ListItems.Add()
itmx.Icon = i
itmx.text = sGSName
itmx.Tag = sGSName
sGSName = Dir
i = i + 1
Loop
颜色失真，而且速度很慢，有办法解决吗？
有别的办法解决吗？我要达到的效果就是：产生缩微图，每个图可以选择，另下面可以输入文字。
你用的是Common Control 6.0吗?
6.0好象没有这个问题
或者你修改一下ImageList的MaskColor
我用的是 Common Control 6.0（SP6）的。
MASKCOLOR 不知如何改，改了几个都没用，望指教。