• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Problem z Visual Basic 2010 - TextChanged

Object Storage Arubacloud
0 głosów
128 wizyt
pytanie zadane 4 stycznia 2018 w Systemy operacyjne, programy przez uśmiechnijsię Nowicjusz (150 p.)
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ź. ;>

1 odpowiedź

0 głosów
odpowiedź 5 stycznia 2018 przez rafal.budzis Szeryf (85,260 p.)
wybrane 7 stycznia 2018 przez uśmiechnijsię
 
Najlepsza
Funkcja ontextchange wykonuje sie za każdym razem gdy wpiszemy jakas litere/cyfrę w kazdej z tych 3funkcji masz czyszczenie pól tekstowych

 

[...].Text "";

 

usuwa wartości pól tekstowych w kazdej z tych trzech funkcji powinna zostać tylko linijka usuwajaca pól wynik. ;)
komentarz 6 stycznia 2018 przez uśmiechnijsię Nowicjusz (150 p.)
A jak napisać formułę, jeżeli chcę, żeby po wyliczeniu sumy a+b+c, przy zmianie jednej z liczb usuwały się pozostałe dwa składniki?

Podobne pytania

0 głosów
1 odpowiedź 416 wizyt
0 głosów
0 odpowiedzi 266 wizyt
0 głosów
1 odpowiedź 439 wizyt
pytanie zadane 25 maja 2018 w Visual Basic przez domds Nowicjusz (120 p.)

92,579 zapytań

141,432 odpowiedzi

319,663 komentarzy

61,964 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Kolejna edycja największej imprezy hakerskiej w Polsce, czyli Mega Sekurak Hacking Party odbędzie się już 20 maja 2024r. Z tej okazji mamy dla Was kod: pasjamshp - jeżeli wpiszecie go w koszyku, to wówczas otrzymacie 40% zniżki na bilet w wersji standard!

Więcej informacji na temat imprezy znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...