Guten Tag,
ich bin ganz neu hier und möchte gerne anfangen VB.Net zu lernen!
Im Moment bastel ich an meinem ersten Programm das mir ein Gewicht errechnet.
Das funktioniert auch sehr gut und so dachte ich mir das ich noch die TextBoxen auf Inhalt überprüfe und nun stecke ich etwas fest.
Ich wollte das alle leeren Felder rot eingefärbt werden und eine MsgBox aufploppt mit dem Inhalt das alle roten Felder ausgefüllt werden müssen.
Wenn ich jetzt aber z.B. TextBox1 und TextBox2 ausfülle und TextBox3 nicht dann funktioniert das auch peferkt.
Lösche ich nun den Inhalt aus einem der beiden und fülle dafür TextBox 3 aus müsste wieder die MsgBox kommen aber das tut sie nicht, obwohl die Hintergrundfarbe sich so ändert wie sie soll.
Anbei mein Quelltext (bitte nicht flamen, ist mein erstes Programm), obwohl ich mir sicher bin das es elegantere Wege gibt mein Vorhaben zu lösen als diese ganzen If Anweisungen fehlt mir halt noch das Wissen dafür.
Bin deshalb Stolz wie Otto auf mein bisheriges Programm !
Kann mir eventuell jemand sagen wie ich es schaffe das die MsgBox immer kommt sobald eine TextBox rot ist?
ich bin ganz neu hier und möchte gerne anfangen VB.Net zu lernen!
Im Moment bastel ich an meinem ersten Programm das mir ein Gewicht errechnet.
Das funktioniert auch sehr gut und so dachte ich mir das ich noch die TextBoxen auf Inhalt überprüfe und nun stecke ich etwas fest.
Ich wollte das alle leeren Felder rot eingefärbt werden und eine MsgBox aufploppt mit dem Inhalt das alle roten Felder ausgefüllt werden müssen.
Wenn ich jetzt aber z.B. TextBox1 und TextBox2 ausfülle und TextBox3 nicht dann funktioniert das auch peferkt.
Lösche ich nun den Inhalt aus einem der beiden und fülle dafür TextBox 3 aus müsste wieder die MsgBox kommen aber das tut sie nicht, obwohl die Hintergrundfarbe sich so ändert wie sie soll.
Anbei mein Quelltext (bitte nicht flamen, ist mein erstes Programm), obwohl ich mir sicher bin das es elegantere Wege gibt mein Vorhaben zu lösen als diese ganzen If Anweisungen fehlt mir halt noch das Wissen dafür.
Bin deshalb Stolz wie Otto auf mein bisheriges Programm !
Kann mir eventuell jemand sagen wie ich es schaffe das die MsgBox immer kommt sobald eine TextBox rot ist?
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim Ergebnis As Double
- Ergebnis = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text) * (7.85 / 1000000)
- If TextBox1.Text = "" Then
- TextBox1.BackColor = System.Drawing.Color.Red
- Else
- TextBox1.BackColor = System.Drawing.Color.White
- End If
- If TextBox2.Text = "" Then
- TextBox2.BackColor = System.Drawing.Color.Red
- Else
- TextBox2.BackColor = System.Drawing.Color.White
- End If
- If TextBox3.Text = "" Then
- TextBox3.BackColor = System.Drawing.Color.Red
- Else
- TextBox3.BackColor = System.Drawing.Color.White
- End If
- If TextBox1.BackColor = System.Drawing.Color.Red Or
- TextBox1.BackColor = System.Drawing.Color.Red Or
- TextBox1.BackColor = System.Drawing.Color.Red Then
- MsgBox("Bitte allen roten Feldern einen Wert geben!", MsgBoxStyle.Information)
- Else
- Label4.Text = Math.Round(Ergebnis)
- End If
- End Sub
- End Class