Save BitMap as Icon

[Dennis]

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.
--
Dennis in Houston

[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

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

"Dennis" <De****@discussions.microsoft.com> wrote in message
news:BD**********************************@microsof t.com...
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.
--
Dennis in Houston

[Herfried K. Wagner [MVP]]

"Dennis" <De****@discussions.microsoft.com> schrieb:

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>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Ken,

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

Cor

[Dennis]

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]" wrote:

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

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

"Dennis" <De****@discussions.microsoft.com> wrote in message
news:BD**********************************@microsof t.com...
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.
--
Dennis in Houston

[Ken Tucker [MVP]]

Hi,

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

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

Ken

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

"Dennis" <De****@discussions.microsoft.com> wrote in message
news:89**********************************@microsof t.com...
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]" wrote:

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

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

"Dennis" <De****@discussions.microsoft.com> wrote in message
news:BD**********************************@microsof t.com...
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.
--
Dennis in Houston