Mouseover, Problem mit Farbwechsel

khenschel · 2024-06-07T08:29:28+00:00

Hallo, ich habe vor einige Schaltflächen in einer Tabelle mit einem Mouseovereffekt zu versehen. Um den Farbwechsel beim mouseover zu realisieren, habe ich als Beispiel und zum testen zwei commandbuttons benutzt und hinter die Schaltfläche unten rechts gelegt (siehe Datei). Das funktioniert grundsätzlich, aber leider unzuverlässig ... manchmal passiert nichts, wenn ich mit der Maus auf die Schaltfläche fahre und manchmal bleibt sie an, wenn ich die Maus wieder von der Schaltfläche wegziehe. Gibt es eine Lösung, dass es immer zuverlässig beim mouseover funktioniert? Ich bin leider kein Profi und bin jetzt ratlos. Vielleicht kann mir jemand helfen? Gruß Klaus Beispiel: https://www.herber.de/bbs/user/169899.xlsm

Hi Daniel,
danke, das hatte ich auch so verstanden ;), aber ich weiß nicht wie das gemacht wird. Ich kenne mich mit VBA nicht gut aus ...

So sieht der derzeitige Code aus (nachdem ich ein ActiveX-Control Image erzeugt habe), also der letzte Absatz Private Sub Image1_ .... wurde hinzugefügt):

Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Tabelle1.C1.BackColor = RGB(0, 255, 0)
End Sub

Private Sub C2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Tabelle1.C1.BackColor = RGB(227, 227, 230)
End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
' Implementation goes here
End Sub

So funktioniert es aber nicht, bzw. genauso schlecht wie vorher. Und was ganz wichtig ist: Ich möchte eine Aktion auslösen, wenn ich auf das ActiveX Image klicke (also z.B. eine App starten, eine pdf anzeigfen lassen, etc.). Wie kann ich das ermöglichen?

Gruß
Klaus

naja, die Codes, die du schon hast, sind doch auch nicht vom Himmel gefallen, die hast du doch auch irgendwie geschrieben.

außerdem, du benutzt bei den Steuerelementen, die du schon hast, das Event MouseMove, um beim drüberfahren mit der Maus die Farbe des Rahmens (C1) zu ändern.
wäre es dann nicht logisch, auch für das neue Steuerelement das selbe Event zu verwenden?
welcher Gedankengang hat dich dazu veranlasst, hier jetzt auf BeforeDragOver zu wechseln?
(kleiner Tipp am Rande, die zur Verfügung stehenden Events werden in der Combobox aufgelistet, die sich rechts über dem Codefenster des Editors befindet. in der Linken Combobox steht das Steuerelement, für das du gerade Code schreibst.

und ja, das Image-Control hat kein Click-Event. Man kann aber alternativ auch MouseUp verwenden, das ist quasi das Event, wenn du den MausButton wieder losläst.

als Alternative kannst du aber auch einem normalen ActiveX-Button ein Bild zuweisen (Entwurfsmodus aktiveren, kontextmenü des Buttons öffnen (rechte Maustaste) und die Eigenschaften anzeigen lassen, dort kannst du dann bei "Picture" das Bild auswählen, das im Button angezeigt wird). Für die normalen Buttons hast du ja schon was programmiert, daher sollte dir das dann leichter fallen als für ein neues Event.

Gruß Daniel

Mouseover, Problem mit Farbwechsel

Forumthread: Mouseover, Problem mit Farbwechsel

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Mouseover, Problem mit Farbwechsel

Forumthread: Mouseover, Problem mit Farbwechsel

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread