VBATools

FM20 – CommandButton

CommandButton to kontrolka ActiveX z zestawu biblioteki FM20 (standardowy przybornik) dla kompilacji Office 32/64 bit.

Przycisk to podstawowa kontrolka, która służy do akceptacji ustawień formularza lub anulowania jego wypełnienia przez użytkownika. Próbujemy to pokazać poniżej w kodzie, ale po kolei.

Obrazek

Kontrolkę rysujemy na formie i zmieniamy jej nazwę z domyślnej CommandButtonX na taką jaką funkcję będzie przycisk przedstawiał. Przycisk ma parametr Accelerator, który służy do przypisania skrótu uruchomienia. W VBA skróty są połączeniem dowolnej litery z klawiszem [Alt].

Dodatkowym elementem w parametrach, który można wykorzystać w przypadku dwóch rodzajów, akceptującym oraz anulującym formularz. Tymi ustawieniami są Cancel = True reagujący na kliknięcie przycisku [ESC], jak i w przypadku akceptowania Default = True reagujący na kliknięcie klawisza [ENTER].

Obrazek
Private Sub CommandButton1_Click() 
'zapis danych do bazy 
MsgBox "Zaakceptowano formularz", vbInformation, "VBATools.pl" 
Unload Me 
End Sub 
 
Private Sub CommandButton2_Click() 
Unload Me 'wyjście z formularza bez zapisu 
End Sub

Inną sztuczką jaką można wykorzystać to ustawienie przycisku jako nieaktywnego Enabled, aby po sprawdzeniu wszystkich niezbędnych opcji formularza odblokować go lub wręcz zmienić jego nazwę informując o komplecie danych. Spróbuje to pokazać poniżej.

Obrazek
Private Sub TextBox1_Change() 
Call sprawdz_wypenienie 'wywołanie procedury 
End Sub 
Private Sub TextBox2_Change() 
Call sprawdz_wypenienie 
End Sub 
Private Sub TextBox3_Change() 
Call sprawdz_wypenienie 
End Sub 
Private Sub sprawdz_wypenienie() 
'jeśli długości wpisanego tekstu w każdym z textboxów >0 to odblokuj przycisk 
If Len(TextBox1.Text) > 0 And Len(TextBox2.Text) > 0 And TextBox3.Text Like "*?@?*.?*" Then 
 CommandButton1.Enabled = True 
 CommandButton1.Caption = "OK" 
Else 
 CommandButton1.Enabled = False 
 CommandButton1.Caption = "Wypełnij formularz" 
End If 
End Sub

Pozostaje jeszcze jedno co powinniście wiedzieć, aby utworzyć ładne formularze. Jest nim osadzenie ikonki do przycisku. Daje to możliwość utworzenia własnego, oryginalnego interfejsu lub po prostu schludnego wpadającego wprost w oko użytkownika. Parametr Picture służy do podłączenia obrazka, a PicturePosition jego położenie na przycisku (tak aby współgrał z tekstem lub go całkowicie zastąpił). Najlepszy format to BMP.

Obrazek

Jeśli uważasz że pokazane materiały są godne polecenia – podziel się tą wiadomością z innymi pozostawiając odnośnik to tego materiału.

(c) Shon Oskar – http://VBATools.pl
Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.