Hej! Mam problem z programem Visual Basic 2010. Mianowicie, przy pisaniu prostego programu na dodawanie trzech liczb przy formule TextChanged usuwają mi się liczby, tzn. wpiszę liczbę 'a', a przechodząc do liczby 'b' usuwa mi się liczba 'a' i tak w kółko. Problemu nie ma, kiedy napiszę formułę TextChanged tylko dla liczby 'a', wtedy działa wszystko poprawnie; a kiedy napiszę formułę dla 'b' i ''c' następuję wyżej opisany problem.
Tu jest mój kod:
Public Class Form1
Private Sub btn_licz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_licz.Click
Dim a, b, c As Single
a = CSng(Me.txt_a.Text)
b = CSng(Me.txt_b.Text)
c = CSng(Me.txt_c.Text)
Dim wynik As String
wynik = CStr(Me.lbl_wynik.Text)
wynik = a + b + c
Me.lbl_wynik.Text = wynik
End Sub
Private Sub txt_a_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_a.TextChanged
Me.txt_b.Text = ""
Me.txt_c.Text = ""
Me.lbl_wynik.Text = ""
End Sub
Private Sub txt_b_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_b.TextChanged
Me.txt_a.Text = ""
Me.txt_c.Text = ""
Me.lbl_wynik.Text = ""
End Sub
Private Sub txt_c_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_c.TextChanged
Me.txt_a.Text = ""
Me.txt_b.Text = ""
Me.lbl_wynik.Text = ""
End Sub
Private Sub Wyczyść_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Wyczyść.Click
Me.txt_a.Text = "0"
Me.txt_b.Text = "0"
Me.txt_c.Text = "0"
Me.lbl_wynik.Text="0"
End Sub
Private Sub btn_wyjdź_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_wyjdź.Click
Me.Close()
End Sub
End Class
Jestem początkującą użytkowniczką tego programu, dlatego proszę o wyrozumiałość. Z góry dziękuję za odpowiedź. ;>