|
Nevím, ale za jednodušší bych považoval použití jiného systému přetypování vstupů na číslo int. Místo kontroly všech možných i nemožných stavů obsahu textových polí použijte pro přetypování místo cint(...) tryparse(...), které se pokusí provést příslušné přetypování, a vrací logickou hodnotu true, pokud se přetypování povedlo (přetypovanou hodnotu pak obdržíte v parametru funkce), či false, pokud z jakéhokoliv důvodu selhalo. Příklad použití třeba:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Integer
If Integer.TryParse(TextBox1.Text, a) And Integer.TryParse(TextBox2.Text, b) Then
TextBox3.Text = (a + b).ToString
Else
TextBox3.Text = "Chybný vstup!"
End If
End Sub
nebo si s kalkulačkou můžete ještě pohrát trochu jiným způsobem, že umožníte zmáčknout tlačítko funkce pouze při relevantních vstupech:
Public Class Form1
Dim a, b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = (a + b).ToString
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
Button1.Enabled = Integer.TryParse(TextBox1.Text, a) And Integer.TryParse(TextBox2.Text, b)
End Sub
End Class
|