Image & MouseMove - scrollen solange berührt
14.11.2003 14:29:08
udo
häng gerade an einem kniffeligen Problemchen.
und zwar möchte ich , dass wenn ich mit dem Mauszeiger auf dieses Imagefeld drauf fahre, (als ohne zu klicken) dass mir dann die Datei so lange nach unten scrollt, bis ich wieder weggehe.
Es sind dann zwei Imagefelder nebeneinander angebracht ( im fixierten Bereich der Tabelle ).
Ich hab mal ganz spartanisch folgende VBA Anweisungen mit ins Worksheet eingebaut :
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveWindow.SmallScroll Down:=1
End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveWindow.SmallScroll up:=1
End Sub
funktioniert auch soweit einigermaßen, aber noch nicht perfekt.
Man muss nämlich den Mauszeiger so auf dem Imagefeld etwas bewegen, damit die Datei dann solange scrollt, bis man wieder runtergeht.
Kennt Jemand die richtige Anweisung, damit kontinuierlich gescrollt wird, oder muss ich die Eigenschaften der Imagefelder irgendwie einstellen ?
Wäre toll wenn das Jemand wüsste,
Bei einem Spinnbutton klappt das ganze folgendermaßen ( zweckentfremdet )
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Ich hab das ganze schon mal für einen Spinnbutton - pfeil so angelegt, wie im unteren Makro, allerdings muss man dort dann in den Eigenschaften des Spinnbuttons noch die min & max Werte anpassen mit zB. min = 10000 und max = -10000 , sonst scrollt er nur in eine Richtung.
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
Danke
........................................................................................................................................................................................................................................................................................
Hier mal noch zusätzliche , brauchbare Beispiele von versch. Helfern aus dem Forum , sowie mir selbst , ... viel Erfolg allerseits , Gruß udo
Arbeitszeiterfassung mit Jahreskalender & Feiertagsübersicht ... Update kommt demnächst ( von udo , EXCEL XP , 2000 ) ***
https://www.herber.de/bbs/user/1834.zip ( 347 Kb )
Datumwert abgleichen / suchen und entspr. Zeilen kopieren in andere Tabellen ( von udo ) **
https://www.herber.de/bbs/user/1920.xls ( 70 Kb )
intelligente Gültigkeit - erweitert sich autom. um neue Einträge in der Gültigkeitsvorgabe ( von Boris ) *****
https://www.herber.de/bbs/user/1953.xls ( 40 Kb )
verschiedenen Beispiele zusammen , mit allen mögl. Formeln ( von Max ) *****
https://www.herber.de/bbs/user/1946.xls ( 300 Kb )
Suchen X Einträgen, je nach Eingabe v. Buchstaben ( von ? ) ****
Die Datei https://www.herber.de/bbs/user/1959.xls wurde aus Datenschutzgründen gelöscht
( 44 Kb )Hajos Excelseite mit tollen Beispielen mit & ohne VBA's ( von Hajo_Zi ) *****
http://home.media-n.de/ziplies/
Bewertungen meinerseits ( ***** sehr z. empfh. Tipp , **** sehr gut , *** gut , ** unspektakulär aber brauchbar ... )
( Anregeungen oder Tipps speziell zu meinen ( udo ) Beispielen gerne an udo-de@web.de )
........................................................................................................................................................................................................................................................................................
Rückmeldungen der Fragesteller auf Antworten versch. Helfer, steigern den allg. Lerneffekt !!!
...