Save BitMap as Icon

[Guest]

I give up...I have tried all combinations that I can think of and I can't get
a bitmap converted to an icon and save it in a filestream or stream;

Any help would be appreciated.

 

[Ken Tucker [MVP]]

Hi,

Dim bm As New Bitmap("C:\Camera.bmp")

Dim ico As Icon = Icon.FromHandle(bm.GetHicon)

Dim fs As New System.IO.FileStream("C:\Camera.ico", IO.FileMode.CreateNew)

ico.Save(fs)

fs.Close()



Ken

-------------------------------

I give up...I have tried all combinations that I can think of and I can't
get
a bitmap converted to an icon and save it in a filestream or stream;

Any help would be appreciated.

 

[Herfried K. Wagner [MVP]]

I give up...I have tried all combinations that I can think
of and I can't get a bitmap converted to an icon and
save it in a filestream or stream;

<URL:http://vbaccelerator.com/article.asp?id=4567>

 

[Cor Ligthert]

Ken,

Looks great can this be seen as your code, because I have put it in a
snippet with your name.

Cor

 

[Guest]

Thanks a lot..I've been working on this for 2 days now. I wonder why this
doesn't work?

Dim fmt As ImageFormat
fmt = ImageFormat.Icon
im2.Save("c:\icon1.ico", fmt)

It give an error that value cannot be null, Parameter Encoder.

 

[Ken Tucker [MVP]]

Hi,

Dim bm As New Bitmap("c:\camera.bmp")

bm.Save("C:\Camera.ico", Imaging.ImageFormat.Icon)



Ken

---------------------------------------

Thanks a lot..I've been working on this for 2 days now. I wonder why this
doesn't work?

Dim fmt As ImageFormat
fmt = ImageFormat.Icon
im2.Save("c:\icon1.ico", fmt)

It give an error that value cannot be null, Parameter Encoder.