VBATools

FM20 – SpinButton

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

To kontrolka o wąskim zastosowaniu. Jej zadaniem jest osadzenie 2-ch przycisków, którymi można powiększać lub zmniejszać wartość tej kontrolki.

Obrazek

Zwykle łączy się ją wraz z tekstboxem, w którym można wstawiać tylko wartości numeryczne, nie można edytować tego pola przez użytkownika (Textbox1.Locked = True) lub sprawdzając czy pole jest liczbą (funkcja isnumeric()) sprowadzając zmianę wartości przez przyciski SpinButona. Jak to wygląda w praktyce:

Obrazek
Private Sub SpinButton1_Change() 
 TextBox1.Value = SpinButton1.Value 
End Sub

Niestety więcej kodu nie jest potrzebne.

Skokiem kontrolki można sterować. Parametr SmallChange domyślnie posiada wartość jeden. Jeśli podniesiemy tą liczbę to taki skok wartości zostanie wykonany po kliknięciu w przycisk kontrolki. Dodatkowo można ustawić inną niż domyślna wartość Min, która domyślnie jest zerem. Przestawiając ją na wartości ujemne zyskujemy po przez kliknięcie przycisku przeciwnego niż dodawanie zejście poniżej zera. Oto prosty przykład:

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.