Mit einem Spinbutton möchte ich den Wert einer, in einem Formular befindliche TextBox von 15 auf 30, mit Schrittweite 1 hoch und runter zählen!
Hat jemand ein Beispiel dazu?
Vielen Dank im voraus!
Gruß Ludwig
Option Explicit
Private Sub SpinButton1_SpinDown()
If TextBox1 = "" Then
TextBox1 = -1
Else
TextBox1 = CDbl(TextBox1) - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
If TextBox1 "" Then
TextBox1 = CDbl(TextBox1) + 1
Else
TextBox1 = 1
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen