以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]图片生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84952)

--  作者:jiskin
--  发布时间:2016/5/13 16:07:00
--  [求助]图片生成
Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(dr("路径"))
ico.ToBitmap().save(dr("路径"))

各位老板,我用这种方式生成的图片png 分辨率很低,有没有什么办法提高点分辨率,另外如果生成ICO格式的则无法使用,啥道理?

还有,如果想在做listview的时候,添加图片的时候 有没有方法引用这个图片而不是间接先存到路径再引用呢?

--  作者:大红袍
--  发布时间:2016/5/13 16:32:00
--  

1、这个没办法,分别率是会降低的。

 

2、可以这样,比如

 

Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(dr("路径"))

 

    lvw.Images.LargeImages.Add("aaa", ico) \'添加照片,直接用文件名作为图片键值
    vr.ImageKey = "aaa" \'设置图片键值


--  作者:jiskin
--  发布时间:2016/5/13 16:44:00
--  
感谢老板
--  作者:jiskin
--  发布时间:2016/6/16 12:05:00
--  
以下是引用大红袍在2016/5/13 16:32:00的发言:

1、这个没办法,分别率是会降低的。

 

2、可以这样,比如

 

Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(dr("路径"))

 

    lvw.Images.LargeImages.Add("aaa", ico) \'添加照片,直接用文件名作为图片键值
    vr.ImageKey = "aaa" \'设置图片键值

 

 

    Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(icop)
    ico.ToBitmap().save(icos)

    ...

    lvw.Images.AddLargeImage(dr("_identify"),dr("图标文件"))

 

大红袍老板,用这种方式生成的ICO文件看起来是一个白板,加载了也无法显示 什么道理


--  作者:大红袍
--  发布时间:2016/6/16 12:39:00
--  

这样写

 

Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(icop)
lvw.Images.LargeImages.Add(dr("_identify"), ico) \'


--  作者:jiskin
--  发布时间:2016/6/16 12:40:00
--  
以下是引用大红袍在2016/6/16 12:39:00的发言:

这样写

 

Dim ico As Icon = System.Drawing.Icon.ExtractAssociatedIcon(icop)
lvw.Images.LargeImages.Add(dr("_identify"), ico) \'

 

这样我知道,但是我实际是先保存为ico文件 再在后期调用的,所以如何正常保存成ico是个问题


--  作者:大红袍
--  发布时间:2016/6/16 12:44:00
--  

这样写

 

Dim icon As Icon = System.Drawing.Icon.ExtractAssociatedIcon(ApplicationPath & "foxtable.exe")

\'直接使用icon


Dim fileStream As new System.IO.FileStream("d:\\test.ico", System.IO.FileMode.Create)
icon.Save(fileStream)
fileStream.Close()