Bilder mit Optionbutton und ListBox verknüpfen

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Crayne.

    Bilder mit Optionbutton und ListBox verknüpfen

    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:



    Visual Basic-Quellcode

    1. Private Sub Bora_Click()
    4. If Bora.Value = True Then
    5. Grundpreis2.Text = 11000
    6. Else
    7. Grundpreis2.Text = ""
    8. End If
    11. End Sub
    13. Private Sub Cabrio_Click()
    16. If Cabrio.Value = True Then
    17. Grundpreis2.Text = 20
    18. Else
    19. Grundpreis2.Text = ""
    20. End If
    23. End Sub
    26. Private Sub Form_Load()
    29. Liste.AddItem "Weiß"
    30. Liste.AddItem "Schwarz"
    31. Liste.AddItem "Rot"
    32. Liste.AddItem "Blau"
    35. End Sub
    37. Private Sub Golf_Click()
    40. If Golf.Value = True Then
    41. Grundpreis2.Text = 19520
    42. Else
    43. Grundpreis2.Text = ""
    44. End If
    47. End Sub
    49. Private Sub Klimaanlage_Click()
    52. If Klimaanlage.Value = 1 Then
    53. TextKlimaanlage.Text = 1200
    54. Else
    55. TextKlimaanlage.Text = ""
    56. End If
    58. End Sub
    62. Private Sub Liste_Click()
    65. If Liste.Text = "Blau" And Lupo.Value Then
    66. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Blue.jpg")
    68. ElseIf Liste.Text = "Rot" And Lupo.Value Then
    69. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Red.jpg")
    71. ElseIf Liste.Text = "Schwarz" And Lupo.Value Then
    72. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Black.jpg")
    74. ElseIf Liste.Text = "Weiß" And Lupo.Value Then
    75. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-White.jpg")
    77. End If
    80. End Sub
    82. Private Sub Lupo_Click()
    86. If Liste.Text = "Blau" Then
    87. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Blue.jpg")
    89. ElseIf Liste.Text = "Rot" Then
    90. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Red.jpg")
    92. ElseIf Liste.Text = "Schwarz" Then
    93. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-Black.jpg")
    95. ElseIf Liste.Text = "Weiß" Then
    96. PictureBox.Picture1 = LoadPicture("C:\Dokumente und Einstellungen\t.tomitza.PLS-BOCHUM\Desktop\Projekt Carconfiguator\Lupo-White.jpg")
    97. End If
    99. If Lupo.Value = True Then
    100. Grundpreis2.Text = 12000
    101. Else
    102. Grundpreis2.Text = ""
    103. End If
    106. End Sub
    108. Private Sub Luxuspaket_Click()
    111. If Luxuspaket.Value = 1 Then
    112. TextLuxuspaket.Text = 2500
    113. Else
    114. TextLuxuspaket.Text = ""
    115. End If
    118. End Sub
    120. Private Sub Preisbutton_Click()
    123. a = Val(Grundpreis2.Text)
    124. b = Val(TextKlimaanlage.Text)
    125. c = Val(TextWinterpaket.Text)
    126. d = Val(TextSoundpaket.Text)
    127. e = Val(TextLuxuspaket.Text)
    128. Preisfeld.Text = a + b + c + d + e
    131. End Sub
    134. Private Sub Soundpaket_Click()
    137. If Soundpaket.Value = 1 Then
    138. TextSoundpaket.Text = 800
    139. Else
    140. TextSoundpaket.Text = ""
    141. End If
    144. End Sub
    148. Private Sub Winterpaket_Click()
    151. If Winterpaket.Value = 1 Then
    152. TextWinterpaket.Text = 1700
    153. Else
    154. TextWinterpaket.Text = ""
    155. End If
    158. End Sub




    Edit by ~blaze~:
    *Thema verschoben und VB-Tag eingefügt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

    ??

    Also es wäre echt hilfreich, wenn mir einer antworten würde :(





    NACHTRAG -.-



    Vielen Dank tzz, naja hab selbst den Fehler gefunden hab nur ein bisschen was vertauscht.


    Visual Basic-Quellcode

    1. Private Sub Bora_Click()
    3. If Liste.Text = "Blau" Then
    4. Picture1.Picture = LoadPicture("Bora-Blue.jpg")
    6. ElseIf Liste.Text = "Rot" Then
    7. Picture1.Picture = LoadPicture("Bora-Red.jpg")
    9. ElseIf Liste.Text = "Schwarz" Then
    10. Picture1.Picture = LoadPicture("Bora-Black.jpg")
    12. ElseIf Liste.Text = "Weiß" Then
    13. Picture1.Picture = LoadPicture("Bora-White.jpg")
    14. End If
    16. If Bora.Value = True Then
    17. Grundpreis2.Text = 19900
    18. Else
    19. Grundpreis2.Text = ""
    20. End If
    23. End Sub
    25. Private Sub Cabrio_Click()
    26. If Liste.Text = "Blau" Then
    27. Picture1.Picture = LoadPicture("Beetle Cabrio-Blue.jpg")
    29. ElseIf Liste.Text = "Rot" Then
    30. Picture1.Picture = LoadPicture("Beetle Cabrio-Red.jpg")
    32. ElseIf Liste.Text = "Schwarz" Then
    33. Picture1.Picture = LoadPicture("Beetle Cabrio-Black.jpg")
    35. ElseIf Liste.Text = "Weiß" Then
    36. Picture1.Picture = LoadPicture("Beetle Cabrio-White.jpg")
    37. End If
    39. If Cabrio.Value = True Then
    40. Grundpreis2.Text = 25000
    41. Else
    42. Grundpreis2.Text = ""
    43. End If
    46. End Sub
    49. Private Sub Form_Load()
    52. Liste.AddItem "Weiß"
    53. Liste.AddItem "Schwarz"
    54. Liste.AddItem "Rot"
    55. Liste.AddItem "Blau"
    58. End Sub
    60. Private Sub Golf_Click()
    61. If Liste.Text = "Blau" Then
    62. Picture1.Picture = LoadPicture("Golf GTI-Blue.jpg")
    64. ElseIf Liste.Text = "Rot" Then
    65. Picture1.Picture = LoadPicture("Golf GTI-Red.jpg")
    67. ElseIf Liste.Text = "Schwarz" Then
    68. Picture1.Picture = LoadPicture("Golf GTI-Black.jpg")
    70. ElseIf Liste.Text = "Weiß" Then
    71. Picture1.Picture = LoadPicture("Golf GTI-White.jpg")
    72. End If
    74. If Golf.Value = True Then
    75. Grundpreis2.Text = 19520
    76. Else
    77. Grundpreis2.Text = ""
    78. End If
    81. End Sub
    83. Private Sub Klimaanlage_Click()
    86. If Klimaanlage.Value = 1 Then
    87. TextKlimaanlage.Text = 1200
    88. Else
    89. TextKlimaanlage.Text = ""
    90. End If
    92. End Sub
    96. Private Sub Liste_Click()
    99. If Liste.Text = "Blau" And Lupo.Value Then
    100. Picture1.Picture = LoadPicture("Lupo-Blue.jpg")
    102. ElseIf Liste.Text = "Rot" And Lupo.Value Then
    103. Picture1.Picture = LoadPicture("Lupo-Red.jpg")
    105. ElseIf Liste.Text = "Schwarz" And Lupo.Value Then
    106. Picture1.Picture = LoadPicture("Lupo-Black.jpg")
    108. ElseIf Liste.Text = "Weiß" And Lupo.Value Then
    109. Picture1.Picture = LoadPicture("Lupo-White.jpg")
    111. ElseIf Liste.Text = "Blau" And Golf.Value Then
    112. Picture1.Picture = LoadPicture("Golf GTI-Blue.jpg")
    114. ElseIf Liste.Text = "Rot" And Golf.Value Then
    115. Picture1.Picture = LoadPicture("Golf GTI-Red.jpg")
    117. ElseIf Liste.Text = "Weiß" And Golf.Value Then
    118. Picture1.Picture = LoadPicture("Golf GTI-White.jpg")
    120. ElseIf Liste.Text = "Schwarz" And Golf.Value Then
    121. Picture1.Picture = LoadPicture("Golf GTI-Black.jpg")
    123. ElseIf Liste.Text = "Blau" And Bora.Value Then
    124. Picture1.Picture = LoadPicture("Bora-Blue.jpg")
    126. ElseIf Liste.Text = "Rot" And Bora.Value Then
    127. Picture1.Picture = LoadPicture("Bora-Red.jpg")
    129. ElseIf Liste.Text = "Weiß" And Bora.Value Then
    130. Picture1.Picture = LoadPicture("Bora-White.jpg")
    132. ElseIf Liste.Text = "Schwarz" And Bora.Value Then
    133. Picture1.Picture = LoadPicture("Bora-Black.jpg")
    135. ElseIf Liste.Text = "Blau" And Cabrio.Value Then
    136. Picture1.Picture = LoadPicture("Beetle Cabrio-Blue.jpg")
    138. ElseIf Liste.Text = "Rot" And Cabrio.Value Then
    139. Picture1.Picture = LoadPicture("Beetle Cabrio-Red.jpg")
    141. ElseIf Liste.Text = "Weiß" And Cabrio.Value Then
    142. Picture1.Picture = LoadPicture("Beetle Cabrio-White.jpg")
    144. ElseIf Liste.Text = "Schwarz" And Cabrio.Value Then
    145. Picture1.Picture = LoadPicture("Beetle Cabrio-Black.jpg")
    147. End If
    148. End Sub
    150. Private Sub Lupo_Click()
    154. If Liste.Text = "Blau" Then
    155. Picture1.Picture = LoadPicture("Lupo-Blue.jpg")
    157. ElseIf Liste.Text = "Rot" Then
    158. Picture1.Picture = LoadPicture("Lupo-Red.jpg")
    160. ElseIf Liste.Text = "Schwarz" Then
    161. Picture1.Picture = LoadPicture("Lupo-Black.jpg")
    163. ElseIf Liste.Text = "Weiß" Then
    164. Picture1.Picture = LoadPicture("Lupo-White.jpg")
    165. End If
    167. If Lupo.Value = True Then
    168. Grundpreis2.Text = 12000
    169. Else
    170. Grundpreis2.Text = ""
    171. End If
    174. End Sub
    176. Private Sub Luxuspaket_Click()
    179. If Luxuspaket.Value = 1 Then
    180. TextLuxuspaket.Text = 2500
    181. Else
    182. TextLuxuspaket.Text = ""
    183. End If
    186. End Sub
    188. Private Sub Preisbutton_Click()
    191. a = Val(Grundpreis2.Text)
    192. b = Val(TextKlimaanlage.Text)
    193. c = Val(TextWinterpaket.Text)
    194. d = Val(TextSoundpaket.Text)
    195. e = Val(TextLuxuspaket.Text)
    196. Preisfeld.Text = a + b + c + d + e
    199. End Sub
    202. Private Sub Soundpaket_Click()
    205. If Soundpaket.Value = 1 Then
    206. TextSoundpaket.Text = 800
    207. Else
    208. TextSoundpaket.Text = ""
    209. End If
    212. End Sub
    216. Private Sub Winterpaket_Click()
    219. If Winterpaket.Value = 1 Then
    220. TextWinterpaket.Text = 1700
    221. Else
    222. TextWinterpaket.Text = ""
    223. End If
    226. End Sub

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Crayne“ ()

Facebook
Telefonspende