@ GerdW

Hallo Gerd,

zunächst mal ganz herzlichen Dank für deinen Entwurf, unter:

https://www.herber.de/forum/messages/338538.html

... bzgl. des Mouse Moves über den Image feldern.

Ich bin leider erst heut Abend dazugekommen , es zu testen, und denke das ich mich an die Anweisung von dir gehalten habe, aber es scheint leider noch nicht zu gehn bei mir.

Muss ich noch evt. Eigenschaftswerte der Imagefelder irgendwie einstellen ???

Habe :

Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)
...in ein Modul gepackt, und den Rest im Tabellenblatt verankert.

Leider wird dann nur einfach gescrollt, und das auch erst bei Klick.
Also pro klick eine Zeile die gescrollt wird ???

Mach ich was falsch, ich denk mal du wirst es bei dir selbst ja bestimmt zum Laufen gebracht haben , komisch ???

Wäre dir sehr dankbar, wenn du dich kurz dazu mitteilen könntest, muss auch nicht noch heut Abend sein , wann es dir reinpasst , bin schon Gottfroh das
da Jemand wie du dabei überhaupt durchsteigt.
So perfekt sind meine VBA Kenntnisse leider noch nicht, weshalb ich halt nochn bissle Beistand bräuchte ;-)

Auf Jedenfall schonmal ein ganz herzliches Dankeschön an dich, das du deine Zeit hierfür geopfert hast , Danke.

Liebn Gruß, und gute Nacht

udo

Achso was mir noch einfällt, im Tabellenmodul der Tab. , in der das ganze dann funktionieren soll, da steht ebenfalls schon folgendes Makro für den Spinnbutton, der da noch drinnehängt.

Kolidieren die beiden Anweisungen vielleicht miteinander ???

Option Explicit
Public OldValue
Dim scr As Boolean


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


Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
scr = True
Sleep 500
Do While scr = True
ActiveWindow.SmallScroll down:=1
Sleep 50
DoEvents
Loop
End If
End Sub


Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then scr = False
End Sub


Private Sub Image2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
scr = True
Sleep 500
Do While scr = True
ActiveWindow.SmallScroll up:=1
Sleep 50
DoEvents
Loop
End If
End Sub


Private Sub Image2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then scr = False
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Gerd, ist es möglich das Bild das in dem Imagefeld dargestellt wird ebenfalls für den
Zeitraum wo man dann draufbleibt zu ändern, sprich für diese Zeit ein anderes dar zu stellen ?

Ich werde wenn ja, dann zwei Button bilder entwerfen, eines ungedrückt, und das andere gedrückt, so würde der visuelle Effekt besser dargestellt werden.

Dann wäre es super oberperfekt !!! trotzdem Danke, so ist wirklich schon riesig ...

Ich hab übrigens mal den zweiten Sleep Wert folgendermaßen verwiesen

Sleep cells(1,1).value

und den Wert in zelle A1 stell ich mal mit einem Spinnbutton ein ( oder eben auch mit Imagefeld mal zum testen ), dessen Wert ich min = 8 und max = 40 eingestellt hab, so kann man sich das scrollen nun noch hervorragend feineinstellen.

Echt klasse dein VBA ,...

Jetzt eben letztlich nur ´noch die Frage , was man noch mit einbinden müsste ,das für die Zeit während des Draufklickens auf einen der beiden Buttons noch dann das gedrückt dargestellte Buttonbild eingeblendet wird, und wenn ich aufhöre mit klicken , eben wieder das normale Buttonbildchen ?

Wenn das überhaupt möglich ist ? wenn nicht nicht so schlimm, bin wirklich so schon überaus begeistert von der Lösung.

Gruß udo

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread