Wie lädt man ein Bild aus der Ressourcendatei in vb 2010 expresss?

Question

Zunächst einmal bin ich neu in vb 2010 und habe bisher viel Freude daran gehabt, was ich damit machen konnte. Davon abgesehen bin ich auf ein Problem mit meinem aktuellen Projekt gestoßen.

Im Grunde genommen habe ich einen Timer erstellt und alles funktioniert gut in diesem Teil. Mein Problem liegt darin, dass mein Timer für jede Minute/Sekunde ein .png lädt und ich die Bilder so verlinkt habe:

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

Daher wurde dieser Code auf einem anderen PC nutzlos, da dieser Computer diese Dateien nicht lokal hatte und das Programm in einem Fehler endete, da es die .png-Dateien nicht finden konnte.

Ich habe ein wenig online recherchiert und ein paar Websites und Videotutorials gefunden, wie man aus der Ressourcendatei liest. Aber dabei war ich nicht in der Lage, es ordnungsgemäß funktionieren zu lassen.

Das habe ich hier gefunden:

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

Ich weiß, dass dieser Code falsch ist, da ich jetzt 2 Fehler in vb 2010 erhalte. Der einzige Weg, den ich gefunden habe, um dies zum Laufen zu bringen, besteht darin, den Dateinamen anzugeben. Aber ich möchte das verwenden, was in "minutes.text" und "seconds.text" steht, um den Dateinamen anzugeben.

Gibt es einen Ausweg? Oder muss ich eine Reihe von If-Anweisungen verwenden, um dies zu tun?

Beispiel:

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

Ich würde es hassen, viele If-Anweisungen machen zu müssen, wenn es eine einfache Lösung gibt. Deshalb bin ich hier, um Hilfe zu bekommen.

Answer 1

Ich glaube, du suchst nach diesem:

Dim currentMin as string = "_" & minutes.text ' es würde so aussehen: _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)

Answer 2

Ich habe dieses Formular ausprobiert und es funktioniert

Picturebox1.Image = Image.FromHbitmap(My.Resources.imagename.GetHbitmap())