Danke für jeden Tipp!!!
Danke für jeden Tipp!!!
Option Explicit
Public OldValue
Private Sub SpinButton1_Change()
If SpinButton1.Value < OldValue Then
ActiveWindow.SmallScroll Down:=1
Else
ActiveWindow.SmallScroll up:=1
End If
OldValue = SpinButton1.Value
End Sub
sprich solange du auf dem Spinbutton bleibst, wird nachunten oder oben gescrollt, als wenn du die Pfeiltasten der Tastatur gedrückthalten würdest.
Nur eines must du noch einstellen.
Du must den Spinbutton kurz deaktivieren, dann mit rechts anklicken und über Eigenschaften in einstellen, danach wieder aktivieren , fertig.( aktivieren/Deakt. mit dem kleinen grünen Dreieck der Steuerbutton´leiste ).
Folgende Werte der Eigenschaften haben folg. Auswirkung:
der Delay-wert bnestimmt die scrollgeschwindigkeit hierfür, stellst ihn mal auf 15,
min und Max auf 10000 und -10000 einstellen , dann hast genügend Bereich zum Scrollen (wenn du dies nicht änderst steht bei min und max - 0 und 100 drin, weshalb er dann nur in die eine Richtung scrollt, also zuvor einstellen.
Farbe usw. kannst du da auch einstellen.
Ich hoffe es hilft dir weiter, kannst mir ja ein Beispiel von deiner Umstellung / Zweckentfremdeung des Spinnbuttons zuschicken, würd mich freuen.
Gruß udo
udo-de@web.de