Hallo Leute hoff Ihr könnt mir helfen,
Bekomme bei diesem Code nur die Farbe Grün raus egal was ich eingebe, verzweifel bald. Ist bestimmt ein einfacher fehler
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim a As Integer
a = 1
If a > 50 Then
BackColor = Color.Red
Else
BackColor = Color.Green
End If
Do
if a = a + 10 Then
Do Until a > 100
Loop
Else
End If
a = a + 10
Loop While a
Auch hallo
Ist bestimmt ein einfacher fehler
Kann sein, aber so wie es aussieht (VB 2010 Express) kommt es gar nicht zu dieser Bedingung
Do
if a = a + 10 Then
inklusive dem Rest…
Aber der Hintergrund wird Rot, wenn man „a=51“ schreibt.
mfg M.L.
Hallo Leute hoff Ihr könnt mir helfen,
Hallo
Bekomme bei diesem Code nur die Farbe Grün raus egal was ich
eingebe, verzweifel bald. Ist bestimmt ein einfacher fehlerPrivate Sub TextBox1_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged
Dim a As Integera = 1
If a > 50 Then
BackColor = Color.Red
Else
BackColor = Color.Green
End If
Zu dem Codeabschnitt über dieser Zeile kommt er einmal (und mit a = 1) und dann nie wieder, also kann BackColor nur Green sein.
Do
if a = a + 10 Then
Die Abfrage „if a = a + 10“ ergibt immer „False“
Do Until a > 100
Loop
folglich passiert hier auch nichts
Else
End If
a = a + 10
Loop While a