Option Strict Question

Question

Hey,
I'm using this code to extract my bmp resource:

Dim varRes As Object = My.Resources.bmp.bmp
Dim varImg As Drawing.Bitmap = DirectCast(varRes, Drawing.Image)
varImg.Save("D:\img.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

No idea if doing it the best way but however turning on the Option Strict:
Option Strict On disallows implicit conversions from 'System.Drawing.Image' to 'System.Drawing.Bitmap'
How to fix it without using legacy CType etc?

Thanks ^_^

Answer 1

Try this:

 Dim varImg As Drawing.Image = DirectCast(varRes, Drawing.Image)

or this:

 Dim varImg As Drawing.Bitmap = DirectCast(varRes, Drawing.Bitmap)

or this:

 Dim varImg = DirectCast(varRes, Drawing.Image)

Maybe you can also simplify it:

 Dim varImg = My.Resources.bmp.bmp
 varImg.Save("D:\img.bmp")

Answer 2

I always code with Strict On and Infer Off
Simply use
Dim bmp as Bitmap
bmp = New Bitmap("c:\someDirectory\someImage.png") ' either .bmp or .jpg or whatever
then to save a bitmap
bmp.Save("c:\someDirectory\someImage.png", Imaging.ImageFormat.Png) ' or .Bmp or .Jpg or whatever

Are you going through that gymnastic to get access to a My.Resources image?
Simply
Dim bmp as Bitmap
bmp = New Bitmap(My.Resources.bmp.bmp) ' does not work ?

Answer 3

In a single line call:

My.Resources.bmp.bmp.Save("D:\img.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

Didn't know it works that simple?