Ich habe zu Übungszwecken ein Taschenrechner programmiert. Es läuft auch alles perfekt, bis auf eine Sache.
Ich hätte gerne, wenn die beiden Textboxen leer sind, dass der Button Rechnen deaktiviert ist und wenn in den beiden Textboxen was drin steht, das sich der Button dann wieder aktiviert.
Hier mal mein Code
Ich weiß das der Code bestimmt nicht perfekt ist und das man es einfacher machen könnte, aber es ist ja nur zu Übungszwecken.
Ich hätte gerne, wenn die beiden Textboxen leer sind, dass der Button Rechnen deaktiviert ist und wenn in den beiden Textboxen was drin steht, das sich der Button dann wieder aktiviert.
Hier mal mein Code
VB.NET-Quellcode
- Dim zahl1 = txt1.Text Dim zahl2 = txt2.Text Dim ergebniss
- If CheckBox1.Checked Then ergebniss = Val(zahl1) + Val(zahl2) lblErgebniss.Text = "Das Ergebniss ist " & ergebniss CheckBox1.Checked = False txt1.Text = "" txt2.Text = "" If CheckBox1.Checked = False Then End If End If If CheckBox2.Checked Then ergebniss = Val(zahl1) - Val(zahl2) lblErgebniss.Text = "Das Ergebniss ist " & ergebniss CheckBox2.Checked = False txt1.Text = "" txt2.Text = "" End If If CheckBox3.Checked Then ergebniss = Val(zahl1) / Val(zahl2) lblErgebniss.Text = "Das Ergebniss ist " & ergebniss CheckBox3.Checked = False txt1.Text = "" txt2.Text = "" End If If CheckBox4.Checked Then ergebniss = Val(zahl1) * Val(zahl2) lblErgebniss.Text = "Das Ergebniss ist " & ergebniss CheckBox4.Checked = False txt1.Text = "" txt2.Text = "" End If
- End Sub
- Private Sub CheckBox1_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckStateChanged If CheckBox1.Checked = True Then CheckBox2.Enabled = False CheckBox3.Enabled = False CheckBox4.Enabled = False Else CheckBox2.Enabled = True CheckBox3.Enabled = True CheckBox4.Enabled = True End If End Sub
- Private Sub CheckBox2_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckStateChanged If CheckBox2.Checked = True Then CheckBox1.Enabled = False CheckBox3.Enabled = False CheckBox4.Enabled = False Else CheckBox1.Enabled = True CheckBox1.Enabled = True CheckBox3.Enabled = True CheckBox4.Enabled = True End If End Sub
- Private Sub CheckBox3_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckStateChanged If CheckBox3.Checked = True Then CheckBox2.Enabled = False CheckBox1.Enabled = False CheckBox4.Enabled = False Else CheckBox2.Enabled = True CheckBox1.Enabled = True CheckBox4.Enabled = True End If End Sub
- Private Sub CheckBox4_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckStateChanged If CheckBox4.Checked = True Then CheckBox1.Enabled = False CheckBox2.Enabled = False CheckBox3.Enabled = False Else CheckBox2.Enabled = True CheckBox1.Enabled = True CheckBox4.Enabled = True End If End Sub
- Private Sub txt1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt1.Click txt1.Text = "" End Sub
- Private Sub txt2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt2.Click txt2.Text = "" End Sub
- End Class
Ich weiß das der Code bestimmt nicht perfekt ist und das man es einfacher machen könnte, aber es ist ja nur zu Übungszwecken.