Okno tekstowe
TextBox
W lekcji IV zajmiemy się okienkiem tekstowym. Zrobimy prosty programik, który pozwoli nam dodawać liczby.
Więc odpalamy Visuala, na formatce umieszczamy trzy pola tekstowe (to biały prostokąt z wpisanymi literkami "ab") - nazwiemy je odpowiednio txt1, txt2 i wynik -a także przycisk, który otrzyma nazwę Licz.
Aby z pola tekstowego pozbyć się tego co w nim napisane, w Properties wyszukujemy okienko z napisem Text i usuwamy Text1, reszta (nadanie nazwy) odbywa się dokładnie tak samo jak w przypadku "CommandButton".
Gdy już nasza formatka przybrała odpowiedni wygląd przystępujemy do deklaracji zmiennych. Będą one trzy: a, b, wynik.
Dim a, b, wynik as Single ' ponieważ dodawanie nie potrzebuje zbyt dużego zakresu
Gdy już zadeklarowaliśmy zmienne możemy przejść do właściwej części programu, a mianowicie utworzenia procedury która zechciałaby dodawać nasze cyferki.
Przy dodawaniu będą pewne problemy.
Mianowicie jeśli w pierwsze pole textowe wpiszesz 4 a w drugie 6, to po zsumowaniu nie ujrzysz liczby 10, a 46.
Dlaczego? Visual Basic myśli, że operujesz na literach i dodajesz je.
Musisz programowi powiedzieć, że to co wpiszesz w pole tekstowe jest liczbą. Służy do tego funkcja CSng. Jak ją użyć:
Private Sub licz_Click()
a = CSng(txt1.text) ' tym samym zamienimy pole tekstowe na liczbowe
b = CSng(txt2.text)
wynik.text= a + b
End sub
Chyba nie jest to aż takie trudne.
W kroku V udoskonalimy nasz program o gadżety takie jak znaki + czy =