2015-02-08 4 views
-1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged 
If String.IsNullOrEmpty(TextBox1.Text) OrElse String.IsNullOrEmpty(TextBox2.Text) Then Exit Sub 
If Not IsNumeric(TextBox1.Text) OrElse Not IsNumeric(TextBox2.Text) Then Exit Sub 
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) 
End Sub 

Этот код работает для меня, но когда я удаляю оба значения текстового поля, все еще существует ... любое решение для моей проблемы?automatic computaion

ответ

0

У вас нет кода для удаления значения из выходного TextBox (TextBox3), когда очищаются входные TextBoxes (TextBox1 и TextBox2). Вы могли бы просто очистить TextBox3 в начале обработчика событий TextChanged.

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged 
    TextBox3.Text = "" 
    If String.IsNullOrEmpty(TextBox1.Text) OrElse String.IsNullOrEmpty(TextBox2.Text) Then Exit Sub 
    If Not IsNumeric(TextBox1.Text) OrElse Not IsNumeric(TextBox2.Text) Then Exit Sub 
    TextBox3.Text = (CDbl(TextBox1.Text) + CDbl(TextBox2.Text)).ToString 
End Sub 
+0

это работает !!!! Большое спасибо – user3342642