1、这个没办法,分别率是会降低的。
2、可以这样,比如
Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(dr("路径"))
lvw.Images.LargeImages.Add("aaa", ico) '添加照片,直接用文件名作为图片键值 vr.ImageKey = "aaa" '设置图片键值