Microsoft Visual Basic - Combobox

[Tijme]

Hallo Helpmijer's,:d

Ik heb een vraagje over "Microsoft Visual Basic 2008 Express Edition.":shocked:


Ik heb in mijn Form1 een combobox gemaakt en een picturebox

De picturebox heeft en achtergrond plaatje "Plaatje1"
De Combobox heeft de opties "Plaatje1"
"Plaatje2"
"Plaatje3"

Nu wil ik dat als mijn combobox word veranderd van plaatje1 naar plaatje2 dat mijn picturebox.backgroundimage ook veranderd naar plaatje2

weten jullie toevallig hoe dit moet?:d


Ook kan iedereen die mijn form1 gebruikt de combobox text veranderen. ( ze kunnen de teskt plaatje1, plaatje2 en plaatje3 dus veranderen weten jullie misschien ook hoe je dit zo kunt veranderen dat ze de teksten in de combobox niet kunnen veranderen.

Alvast bedankt,,
Tijme:d

 

[Tijme]

Het is me gelukt na lang proberen XD
hier is de code voor meer mensen die dit probleem hebben :
___________________________________________________________


Public Class Form1


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = ("Plaatje1") Then
PictureBox1.Image = (WindowsApplication1.My.Resources.Resources.Plaatje1)
End If
If ComboBox1.Text = ("Plaatje2") Then
PictureBox1.Image = (WindowsApplication1.My.Resources.Resources.Plaatje2)
End If
If ComboBox1.Text = ("Plaatje3") Then
PictureBox1.Image = (WindowsApplication1.My.Resources.Resources.Plaatje3)
End If
End Sub
End Class

 

[JoZ1]

Reactie

Als het plaatje van een bestand gehaald wordt, doe je het zo:

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 

Dim Pad As String
Dim Plaatje As Bitmap


Select Case ComboBox1.Text

            Case "Plaatje 1"
               Pad = "Vul hier het pad van het plaatje in."
            Case "Plaatje 2"
               Pad = "Vul hier het pad van het plaatje in."
            Case "Plaatje 3"
             Pad = "Vul hier het pad van het plaatje in."
End Select

  Try   
            Plaatje = New Bitmap(Pad)
            PictureBox1.Image = CType(Plaatje, Bitmap)
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        Catch
            MsgBox("Het is niet gelukt de afbeelding te laden.", 16 + 4096, "Fout")
        End Try

Hopelijk helpt dit je verder.

 

[Tijme]

ja dankje : P

ik had zelf ook al een oplossing ( gwn met my.resources.plaatje1.jpg enzo xD)

maar alsnog bedankt

En nog een vraagje,,
aangezien jij wel wat van vb weet kun je dit ook?

http://www.helpmij.nl/forum/showthread.php/580723-Visual-Basic-Browser-History
http://www.helpmij.nl/forum/showthread.php/581509-VB-2010-Button-Click

Als het plaatje van een bestand gehaald wordt, doe je het zo:

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 

Dim Pad As String
Dim Plaatje As Bitmap


Select Case ComboBox1.Text

            Case "Plaatje 1"
               Pad = "Vul hier het pad van het plaatje in."
            Case "Plaatje 2"
               Pad = "Vul hier het pad van het plaatje in."
            Case "Plaatje 3"
             Pad = "Vul hier het pad van het plaatje in."
End Select

  Try   
            Plaatje = New Bitmap(Pad)
            PictureBox1.Image = CType(Plaatje, Bitmap)
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        Catch
            MsgBox("Het is niet gelukt de afbeelding te laden.", 16 + 4096, "Fout")
        End Try

Hopelijk helpt dit je verder.