mit combobox auf label einwirken

Question

Hallo,

ich versuche mich seit Neuem in VB 6.0 und wollte wissen, wie ich mit der Auswahl in einer ComboBox auf ein Label einwirken kann.

Das ganze soll darin enden, dass der Nutzer ein Backwerk auswählt und dann angezeigt bekommt, wie lange es backen muss (Das Programm ist für ein Projekt in der Schule - deshalb kann ich auch nur VB 6.0 nutzen).

Hier mein Quelltext (Auszug):

Private Sub Form_Load()
CO_backw.AddItem "Apfeltasche"
CO_backw.AddItem "Back -Käse"
CO_backw.AddItem "Bratkartoffeln" [...]

End Sub

___________________________

Private Sub CO_backw_Change()

If CO_backw.Text = "Apfeltasche" Then LA_zeit.Caption = "3.5 Minuten"
If CO_backw.Text = "Back-Käse" Then LA_zeit.Caption = "4 Minuten"
If CO_backw.Text = "Bratkartoffeln" Then LA_zeit.Caption = "5 Minuten" [...]

End Sub

_________________________

Ist das 'Text' nach dem CO_backw. richtig? Habe auch schon anderes ausgewählt, aber nichts klappt... Oder muss ich beim Label noch etwas einstellen?

 

Danke schonmal.

Answer 1

Hallo,

das Change Ereignis tritt nur ein, wenn Du in dem Textfeld der ComboBox etwas eintippst (Style = DropDown Kombinationsfeld), nicht aber wenn sich die Listenauswahl ändert, hier tritt das Click Ereignis ein.

Mit 'Select Case' kannst Du die Bedingungen übersichtlicher gestalten, zudem werden nicht mehr alle weiteren Bedingungen überprüft, sobald die erste zutreffende gefunden wurde:

Private Sub CO_backw_Click()
  Select Case CO_backw.Text
    Case "Apfeltasche"
      LA_Zeit.Caption = "3.5 Minuten"
    Case "Back -Käse"
      LA_Zeit.Caption = "4 Minuten"
    Case "Bratkartoffeln"
      LA_Zeit.Caption = "5 Minuten"
 End Select
End Sub

---

Thorsten Dörfler
Microsoft MVP Visual Basic

Answer 2

Vielen Dank! Funktioniert einwandfrei. Endlich...