Hey Leute,
ich wollte fragen wie es möglich ist folgende Aufgabe mit Select Case zu lösen.
Einmal muss ich etwas abfragen mit einer Checkbox und einmal ohne Checkbox.
Z.B
Zahl 1 = gut
Zahl 2 = mittel
Zahl 3 = schlecht
Wenn aber die Checkbox abgehackt ist, dann
ist die
Zahl 1 = sehr gut
Zahl 2 = recht gut
etc.
Das erste bekomme ich hin, wenn ich aber die Checkbox einbaue (als eigene Select Case), dann
wird mir trd nur die erste Variante angezeigt.
Ich habe verschiedene Sachen probiert . Ein Beispiel :
Select Case Zahl
Case 1
strNachricht = "gut"
txtNachricht.text = strNachricht
Case 2
strNachricht = "mittel"
txtNachricht.text = strNachricht
Case 3
strNachricht = "schlecht"
txtNachricht.text = strNachricht
End select
Select Case Zahl and CheckBox1 = true
Case 1
strNachricht = "sehr gut"
txtNachricht.text = strNachricht
Case 2
strNachricht = "recht gut"
txtNachricht.text = strNachricht
Case 3
strNachricht = "geht so"
txtNachricht.text = strNachricht
End select
____
PS : Bin Anfänger, hoffentlich könnt ihr mir trotzdem helfen.
Mit freundlichen Grüßen.
ich wollte fragen wie es möglich ist folgende Aufgabe mit Select Case zu lösen.
Einmal muss ich etwas abfragen mit einer Checkbox und einmal ohne Checkbox.
Z.B
Zahl 1 = gut
Zahl 2 = mittel
Zahl 3 = schlecht
Wenn aber die Checkbox abgehackt ist, dann
ist die
Zahl 1 = sehr gut
Zahl 2 = recht gut
etc.
Das erste bekomme ich hin, wenn ich aber die Checkbox einbaue (als eigene Select Case), dann
wird mir trd nur die erste Variante angezeigt.
Ich habe verschiedene Sachen probiert . Ein Beispiel :
Select Case Zahl
Case 1
strNachricht = "gut"
txtNachricht.text = strNachricht
Case 2
strNachricht = "mittel"
txtNachricht.text = strNachricht
Case 3
strNachricht = "schlecht"
txtNachricht.text = strNachricht
End select
Select Case Zahl and CheckBox1 = true
Case 1
strNachricht = "sehr gut"
txtNachricht.text = strNachricht
Case 2
strNachricht = "recht gut"
txtNachricht.text = strNachricht
Case 3
strNachricht = "geht so"
txtNachricht.text = strNachricht
End select
____
PS : Bin Anfänger, hoffentlich könnt ihr mir trotzdem helfen.
Mit freundlichen Grüßen.