Hallo Leute,
ich habe ein Problem. Und zwar:
Ich 4 Optionsbuttons und ein Listenfeld
Ich möchte dass, wenn man ein Optionsbutton anklickt, dass ein Auto (Bsp. Golf)in einer Picturebox angezeigt wird. So und im Listenfeld soll man dann die Farbe des Autos auswählen können. Das heißt wenn ich auf Golf klicke und im Listenfeld auf die Farbe schwarz, soll ein schwarzer Golf angezeigt werden. Mein Problem ist das Programm sagt immer Laufzeitfehler 424 Objekt erforderlich. Und ich weiß nicht warum.!! Nebenbei habe ich noch eingestellt, dass das Programm die Kosten des Autos anzeigt, das funktioniert aber. Ich hoffe ihr könnt mir helfen, hier der Code:
Edit by ~blaze~:
*Thema verschoben und VB-Tag eingefügt*
ich habe ein Problem. Und zwar:
Ich 4 Optionsbuttons und ein Listenfeld
Ich möchte dass, wenn man ein Optionsbutton anklickt, dass ein Auto (Bsp. Golf)in einer Picturebox angezeigt wird. So und im Listenfeld soll man dann die Farbe des Autos auswählen können. Das heißt wenn ich auf Golf klicke und im Listenfeld auf die Farbe schwarz, soll ein schwarzer Golf angezeigt werden. Mein Problem ist das Programm sagt immer Laufzeitfehler 424 Objekt erforderlich. Und ich weiß nicht warum.!! Nebenbei habe ich noch eingestellt, dass das Programm die Kosten des Autos anzeigt, das funktioniert aber. Ich hoffe ihr könnt mir helfen, hier der Code:
Visual Basic-Quellcode
- Private Sub Bora_Click()
- If Bora.Value = True Then
- Grundpreis2.Text = 11000
- Else
- Grundpreis2.Text = ""
- End If
- End Sub
- Private Sub Cabrio_Click()
- If Cabrio.Value = True Then
- Grundpreis2.Text = 20
- Else
- Grundpreis2.Text = ""
- End If
- End Sub
- Private Sub Form_Load()
- Liste.AddItem "Weiß"
- Liste.AddItem "Schwarz"
- Liste.AddItem "Rot"
- Liste.AddItem "Blau"
- End Sub
- Private Sub Golf_Click()
- If Golf.Value = True Then
- Grundpreis2.Text = 19520
- Else
- Grundpreis2.Text = ""
- End If
- End Sub
- Private Sub Klimaanlage_Click()
- If Klimaanlage.Value = 1 Then
- TextKlimaanlage.Text = 1200
- Else
- TextKlimaanlage.Text = ""
- End If
- End Sub
- Private Sub Liste_Click()
- If Liste.Text = "Blau" And Lupo.Value Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Blue.jpg")
- ElseIf Liste.Text = "Rot" And Lupo.Value Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Red.jpg")
- ElseIf Liste.Text = "Schwarz" And Lupo.Value Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Black.jpg")
- ElseIf Liste.Text = "Weiß" And Lupo.Value Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-White.jpg")
- End If
- End Sub
- Private Sub Lupo_Click()
- If Liste.Text = "Blau" Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Blue.jpg")
- ElseIf Liste.Text = "Rot" Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Red.jpg")
- ElseIf Liste.Text = "Schwarz" Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Black.jpg")
- ElseIf Liste.Text = "Weiß" Then
- PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-White.jpg")
- End If
- If Lupo.Value = True Then
- Grundpreis2.Text = 12000
- Else
- Grundpreis2.Text = ""
- End If
- End Sub
- Private Sub Luxuspaket_Click()
- If Luxuspaket.Value = 1 Then
- TextLuxuspaket.Text = 2500
- Else
- TextLuxuspaket.Text = ""
- End If
- End Sub
- Private Sub Preisbutton_Click()
- a = Val(Grundpreis2.Text)
- b = Val(TextKlimaanlage.Text)
- c = Val(TextWinterpaket.Text)
- d = Val(TextSoundpaket.Text)
- e = Val(TextLuxuspaket.Text)
- Preisfeld.Text = a + b + c + d + e
- End Sub
- Private Sub Soundpaket_Click()
- If Soundpaket.Value = 1 Then
- TextSoundpaket.Text = 800
- Else
- TextSoundpaket.Text = ""
- End If
- End Sub
- Private Sub Winterpaket_Click()
- If Winterpaket.Value = 1 Then
- TextWinterpaket.Text = 1700
- Else
- TextWinterpaket.Text = ""
- End If
- End Sub
Edit by ~blaze~:
*Thema verschoben und VB-Tag eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()