How do you load an image from resource file in vb 2010 expresss?

53,075

i think you are looking for this:

Dim currentMin as string = "_" & minutes.text ' it would look something like this: _1
picturebox1.Image = CType(My.Resources.ResourceManager.GetObject(currentMin), Image)

Dim currentSec as string = "_" & seconds.text
picturebox2.Image = CType(My.Resources.ResourceManager.GetObject(currentSec), Image)
Share:
53,075
CustomZ02
Author by

CustomZ02

Updated on February 17, 2020

Comments

  • CustomZ02
    CustomZ02 about 4 years

    First of all Im new to vb 2010 and so far have enjoyed what I have been able to do with it. That being said I have run into an issue with my current project.

    Basically I have created a timer and all works well on that part. My issue lies in that my timer loads a .png for each minute/second and I was linking the images like so:

    Picturebox1.Image = Image.Fromfile("C:\timer\images\" & minutes.text & ".png")
    Picturebox2.Image = Image.Fromfile("C:\timer\images\" & seconds.text & ".png")
    

    So running this on another pc rendered that bit of code useless as that computer did not have those files locally and the program would end in an error as it could not find the .png files.

    I did a bit of searching online and found a few sites and video tutorials how to read from the resource file. But in doing so I have been unable to make it function properly.

    So this is what I found here:

    Picturebox1.image = My.Resources.minutes.text
    Picturebox2.image = My.Resources.seconds.text
    

    I know this bit of code is wrong as I'm now getting 2 errors in vb 2010. The only way I have managed to make this work is to specify the file name. But what I'm wanting to do is use whats in "minutes.text" and "seconds.text" to specify the file name.

    Is there a way around this? or do I have to use a bunch of if statements to do this?

    example:

    If minutes.text = 1 Then
    picturebox1 = My.Resource._1
    End If
    If seconds.text = 12 Then
    Picturebox2 = My.Resource._12
    End If
    

    I would hate having to do a bunch of if statements if there is a simple fix. So I've come here for help.

  • CustomZ02
    CustomZ02 over 12 years
    Yes, that is what I was looking for :). Thank you very much sir!
  • gumuruh
    gumuruh almost 10 years
    where is this Image.FromBitmap called from? i mean do we need to import something ?