Guten Morgen,
also, ich glaube diesmal habe ich es nicht so richtig verstanden.
Erstmal ein paar Fragen:
Wieso schreibst du:
Visual Basic:
Case 0
Combo2.ListIndex = True
Case 1
Combo2.ListIndex = True
Case 2
Combo2.ListIndex = True
?
Die Eigenschaft Listindex nimmt ja nur Zahlen, und da du versuchst ihr einen booleschen Wert (wahr) zuzuweisen, kann VB damit nichts anfangen und wandelt True in -1 um. Und was bringt es den ListIndex der ComboBox auf -1 zu setzen, da er erst ab 0 anfängt
Das zweite ist das:
Visual Basic:
If Combo1.ListIndex = A Then
Label62.Caption = "$10"
Check24.Value = 1
Label62.Visible = True
Check24.Visible = True
Else
Label62.Visible = False 'Vorallem das
Check24.Visible = False 'Und das
End If
Mit deiner Else-Klausel verhinderst du ja, dass etwas angezeigt werden kann, da dein Label ja unsichtbar gemacht wird. Ist das so gewollt? Willst du das Ergebnis der anderen Buchstaben vielleicht in andere Labels/ein anderes Label schreiben?
Noch ein Hinweis:
Visual Basic:
If Combo1.ListIndex = A Then
'...
'...
Da fehlen die Anführungszeichen um das A herum, denn wenn man sie nicht setzt, denkt VB, A sei eine Variable und versucht diese, wegen der Eigenschaft ListIndex, in eine Zahl zu verwandeln. Da diese Variable aber leer ist, kommt dabei immer 0 raus und das ist ja wohl kaum gewollt, oder?
Ich habe mal etwas ausprobiert, was wahrscheinlich nicht dem entspricht, was du versuchst zu machen, aber vielleicht bringt dich das ja schon weiter.
Visual Basic:
Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0
If Combo1.Text = "A" Then Label62.Caption = "$10"
If Combo1.Text = "B" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "C" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "D" Then Label62.Caption = "Ein Preis"
Case 1
If Combo1.Text = "A" Then Label62.Caption = "$2,402"
If Combo1.Text = "B" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "C" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "D" Then Label62.Caption = "Ein Preis"
Case 2
If Combo1.Text = "A" Then Label62.Caption = "n/a"
If Combo1.Text = "B" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "C" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "D" Then Label62.Caption = "Ein Preis"
Case 3
If Combo1.Text = "A" Then Label62.Caption = "$2,631"
If Combo1.Text = "B" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "C" Then Label62.Caption = "Ein Preis"
If Combo1.Text = "D" Then Label62.Caption = "Ein Preis"
End Select
'Das Folgende habe ich bewusst mal rausgelassen, da ich noch nicht ganz verstehe, zu was das gut ist. :)
'If Combo1.Text = "A" Then
'Check24.Value = 1
'Label62.Visible = True
'Check24.Visible = True
'Else
'Label62.Visible = False
'Check24.Visible = False
'End If
End Sub
So, ich hoffe du meldest dich nochmal
MfG