Hover-Effekt für Access-Schaltflächen

Der Hover-Effekt sorgt normalerweise in Web-Anwendungen für das Hervorheben des aktuell mit der Maus überfahrenen Links. Das lässt sich natürlich auch in Access realisieren. Wie das funktioniert, lesen Sie im vorliegenden Beitrag.

Hover-Effekt mit Bild

Im einfachsten Fall verwenden Sie eine Schaltfläche, die zwei Bilder anzeigt: eines im Normalzustand und eines, wenn der Benutzer mit der Maus darüberfährt.

Legen Sie einfach eine herkömmliche Schaltfläche namens cmdHover in einem Formular an und fügen Sie diesem das Bild hinzu, das im Normalzustand angezeigt werden soll:

Klicken Sie im Eigenschaftsfenster auf die Eigenschaft Bild.
Rufen Sie im nun erscheinenden Dialog Bild-Generator mit der Schaltfläche Durchsuchen... den Dateiauswahl-Dialog auf.
Wählen Sie eine geeignete Bilddatei aus.

Die Eigenschaft Bildtyp ist standardmäßig auf Eingebettet eingestellt. Auf diese Weise speichert Access die Bilddatei in der Datenbank. Da Sie in dieser ersten Lösung aber das angezeigte Bild wechseln und damit immer wieder von Festplatte laden, spielt die Einstellung dieser Eigenschaft keine Rolle.

Nun benötigen Sie noch den Code, der beim Überfahren der Schaltfläche ein alternatives Bild einblendet und beim Verlassen wieder das Standardbild anzeigt. Diesen teilen Sie auf zwei Ereignisprozeduren auf.

Die Ereignisprozedur, die durch das Ereignis Bei Mausbewegung ausgelöst wird, lautet folgendermaßen:

Private Sub cmdHover_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.cmdHover.Picture = "<Bilddateiname_Alternativ>"

End Sub

Die einzige Anweisung der Routine stellt die Picture-Eigenschaft der Schaltfläche auf die alternative Bilddatei ein.

Das gleiche soll nun noch passieren, wenn der Mauszeiger die Schaltfläche wieder verlässt. Dafür gibt es kein direktes Ereignis. Es bietet sich jedoch an, das passende Bei Mausbewegung-Ereignis des Formularbereichs zu verwenden, in dem sich die Schaltfläche befindet.

Diese Routine sieht so aus:

Private Sub Detailbereich_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.cmdHover.Picture = "<Bilddateiname_Standard>"

End Sub

Die Schaltfläche zeigt nun beim Überfahren das alternative Bild an.