Skocz do zawartości

TextBox i zwiększanie jego wartości przy pomocy przycisku


Yoshimitsu

Rekomendowane odpowiedzi

Jak stworzyć takie coś: wstawiam textbox i obok niego przycisk "+" który zwiększa liczbę zawartą w textboxie o 100.

 

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut, sztucznej inteligencji i wiele więcej!

 

 

To chyba lepiej, jakbyś zrobił label, a nie textbox :) Ale jeśli chcesz tak, to musisz zamienić text z textboxa na zmienną liczbową, jeśli się nie mylę :)

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim Liczba As Integer        Liczba = Integer.Parse(TextBox1.Text)        Liczba += 100        TextBox1.Text = Liczba.ToString()    End Sub

To funkcja na gotowy button click :)

Edytowane przez SaRNEh
  • Super 1
Odnośnik do komentarza

Serdecznie dziękuję za pomoc :) W nagrodę +

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

Serdecznie dziękuję za pomoc :) W nagrodę +

 

Dzięki wielkie :) Jednak zauważyłem problem, gdyż jeśli textbox jest pusty to nie będzie zwiększać wartości. Dlatego możesz użyć tego, to będzie działać :)

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim Liczba As Integer         Try            Liczba = Integer.Parse(TextBox1.Text)        Catch ex As Exception         End Try         Liczba += 100        TextBox1.Text = Liczba.ToString()    End Sub
 

Klik 2x w button X i piszesz: textbox1.text = textbox1.text + 100

Ważne zeby wczesniej ustawiona była wartość 0 w tym tb

 
Niestety to nie zadziała, gdyż wtedy dodajesz sam tekst, a nie liczbę. Dodając w ten sposób będziesz miał 100100100, zamiast 300 :) Tak przynajmniej mi się wydaje :)
Edytowane przez SaRNEh
  • Super 1
Odnośnik do komentarza

Ach, wybacz, rzeczywiście to działa :) Jednak wartość tutaj musi być właśnie 0, co może nie ładnie wyglądać :)

Wszystko śmiga.

REP poprawiłby mi humor :)

"Kto pyta, wstydzi się tylko raz, kto nie wie, wstydzi się całe życie"                                                                                                               
"Standardowa edukacja zapewni ci przeżycie. Samokształcenie fortunę." - Jim Rohn
"Pomagając innym - sami się uczymy"



banner_350x26.png

Odbity w blasku katany księżycu mów mi “Yoshimitsu”

Odnośnik do komentarza

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .