Zastosowanie etykiet
Więc jak była mowa programik z działu IV udoskonalamy o pewne gadżety:) Zaczniemy ponownie od umieszczenia na naszej formatce tym razem dwóch pól tekstowych.
Nadamy im odpowiednio nazwy txt1 i txt2. Następnie z paska narzędzi ( jak zawsze z tego po lewej stronie) dodamy trzy etykiety ( to ten znaczek z dużym "A").
Kolejno przystępujemy do nadania im nazw: lblplus, lblrowna i lblWynik. Kolejno pozbywamy się napisu który obecnie znajduje się na etykiecie, szukamy Caption i
usuwamy napis (w lblplus wstawiamy po prostu znak +, w lblrowne =, natomiast lblWynik pozostawiamy puste), w Alignment środkujemy napisy na naszych etykietach ( 2-center) i ustawiamy wszystko na formatce żeby wyglądało na działanie.
Nie zapomnijcie oczywiście dodać przycisku o nazwie Licz, który będzie liczył te skomplikowane matematyczne działania:)))
Jak formatka nabrała już odpowiedniego wyglądu, możemy przejść oczywiście do zadeklarowania zmiennych w sekcji General.
Dim a, b As Single
Teraz przechodzimy do operacji liczenia, klikami dwukrotnie na przycisk Licz i wpisujemy kod.
Private Sub Licz_Click()
a = Csng(txt1.text)
b = Csng(txt2.text)
lblWynik.Caption = a + b
End Sub
Możemy udoskonalić nieco nasz programik, dodając inne funkcje odejmowania, mnożenia czy dzielenia.
Patrz program Podstawowe działania matematyczne
Myślę, że sobie poradzicie.