In diesem Beispiel wählt der Benutzer eine Verzögerungseinstellung aus, klickt dann auf eine der beiden Seiten eines SpinButton und hält es gedrückt. Die SpinUp - und SpinDown-Ereignisse werden in einem ListBox-Element aufgezeichnet, während sie initiiert werden.
Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass im Formular Folgendes enthalten ist:
Ein SpinButton -Element mit der Bezeichnung "SpinButton1".
Zwei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" und "OptionButton2".
Ein ListBox -Steuerelement mit der Bezeichnung "ListBox1".
Dim EventCount As Long
Private Sub ResetControl()
ListBox1.Clear
EventCount = 0
SpinButton1.Value = 5000
End Sub
Private Sub UserForm_Initialize()
SpinButton1.Min = 0
SpinButton1.Max = 10000
ResetControl
SpinButton1.Delay = 50
OptionButton1.Caption = "50 millisecond delay"
OptionButton2.Caption = "250 millisecond delay"
OptionButton1.Value = True
End Sub
Private Sub OptionButton1_Click()
SpinButton1.Delay = 50
ResetControl
End Sub
Private Sub OptionButton2_Click()
SpinButton1.Delay = 250
ResetControl
End Sub
Private Sub SpinButton1_SpinDown()
EventCount = EventCount + 1
ListBox1.AddItem EventCount
End Sub
Private Sub SpinButton1_SpinUp()
EventCount = EventCount + 1
ListBox1.AddItem EventCount
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Erstellen Sie eine Benutzeroberfläche mit Datenbindung. Ihre Benutzeroberfläche wird automatisch basierend auf den neuesten Daten aktualisiert. Die Daten werden wiederum als Reaktion auf Änderungen der Benutzeroberfläche aktualisiert.