PictureBox Image uit Combobox halen.

[wdevaal]

Uit een Combobox haal ik de naam op van een afbeelding die ook in mijn My.Resources map voorkomt.

Nu wil ik deze in een PictureBox zichtbaar maken, maar dat wil niet lukken.

De naam in de Combobox is b.v. "Verlichting aan"

Deze wordt veranderd in "Verlichting_aan"


---- Begin code

Dim strImage As String = Me.ComboBox.SelectedItem

strImage = strImage.Replace(" ", "_")

Me.PictureBox.Image = My.Resources.Resources.strImage

---- Einde code


Dit werkt wel als een vaste bestandsnaam.

---- Begin code

Me.PictureBox.Image = My.Resources.Resources.Verlichting_aan

---- Einde code

mvg Willy...

 

[The Mighty Atom]

En als je het nou zo doet:

        If ComboBox1.SelectedItem = "Verlichting aan" Then
            PictureBox1.Image = My.Resources.Verlichting_aan
        End If

 

[Stress]

Welke error(s) krijg je?

//EDIT

Omdat ik niet zo goed overweg kan met comboboxen heb ik een ander voorbeeldje genomen.
Een Label1, Textbox1 en Button1.

Dit is de code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bla As String
        bla = TextBox1.Text.Replace(" ", "_")

        Label1.Text = bla
    End Sub

PASOP! Deze code werd niet getest en is hier opgemaakt.
Maar, denk wel dat ie zal lukken

Hopen dat je er iets mee kan

 

[wdevaal]

En als je het nou zo doet:

        If ComboBox1.SelectedItem = "Verlichting aan" Then
            PictureBox1.Image = My.Resources.Verlichting_aan
        End If

Ja dit werk wel,maar ik heb ongeveer 50 Items in de Combobox staan dus is dit niet de oplossing die ik zoek.

mvg Willy...

 

[Stress]

Ik heb eens nagedacht en ik denk dat dit voor jou bestemd is:
Als je klikt op de button dan werkt het pas.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bla As String
        bla = ComboBox1.Text.Replace(" ", "_")

        Picturebox1.Image = bla
    End Sub

Succes!

 

[wdevaal]

Ik heb eens nagedacht en ik denk dat dit voor jou bestemd is:
Als je klikt op de button dan werkt het pas.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bla As String
        bla = ComboBox1.Text.Replace(" ", "_")

        Picturebox1.Image = bla
    End Sub

Succes!

Dank voor het mee denken.

Maar als je goed leest staan de afbeeldingen niet op HD, maar in "My.Resources".

mvg. Willy...

 

[Stress]

Ik heb nog nooit: My.Resources gebruikt dus ik kan u niet helpen
Misschien met wat dingen proberen kom je der waarschijnlijk wel

Succes ermee.

 

[evertVB]

Dit:

        Me.PictureBox.Image = My.Resources.Resources.strImage

Vervangen door:

        Me.PictureBox.Image = My.Resources.ResourceManager.GetObject(strImage)

Helpt dat?

 

[wdevaal]

Dit:

        Me.PictureBox.Image = My.Resources.Resources.strImage

Vervangen door:

        Me.PictureBox.Image = My.Resources.ResourceManager.GetObject(strImage)

Helpt dat?

Ga ik morgen avond even proberen, laat het resultaat hier even weten.

mvg. Willy...