Public Function erstellen für Buttons

[kfisch]

Hallo zusammen,

ich erstelle gerade eine neue Datenbank zur besseren Übersicht und komme leider nicht weiter. 
Mein Problem ist folgendes:
ich habe eine Übersicht mit ca. 80 Buttons.
Diese benötige ich zur Weiterleitung an verschiedene Formulare etc.
Nun möchte ich einstellen, dass jeder Button bei Fokuserhalt die Schriftfarbe ändert sowie den Text unterstreicht.
Bei Fokusverlust soll wieder die ursprüngliche Formatierung eingestellt werden.
Da ich nun nicht für 80 Buttons die jeweilige Formatierung programmieren will, würde ich dies gerne über eine Public Function machen und dies dann jedem Button nur noch zuweisen müssen.

Kann mir hier jemand einen Tip geben, wie diese Programmierung am besten aussehen soll?

Bin für jede Hilfe dankbar 

[DF6GL]

Hallo,

ich glaube nicht, dass es in dieser Form (Fokuserhalt/-verlust)  so funktioniert, wie Du Dir das vorstellst.

Allenfalls ginge Folgendes:

In einem Standardmodul:

Code [Auswählen] Erweitern

Public Function formatbutton(btn As Control, mode As Boolean)
If mode Then
  btn.FontUnderline = True
  btn.ForeColor = vbRed
Else
  btn.FontUnderline = False
  btn.ForeColor = vbBlack
End If
End Function

und Aufruf der Funktion  beim Ereignis  "Bei Mausbewegung" der Schaltflächen:  =formatbutton([btnName1];1)
und beim Ereignis "Bei Mausbewegung" des Bereiches, auf dem die Buttons platziert sind:  =formatbutton([btnImpListe107];0)

[MaggieMay]

Hallo,

warum sollten die Fokusereignisse nicht geeignet sein? Du kannst die Ereigniseigenschaften aller Buttons nach Mehrfachmarkierung im Formularentwurf mit jeweils einer einzigen Eingabe auf die benutzerdefinierten Funktionen einstellen.

Der Code dazu könnte folgendermaßen aussehen:

Code [Auswählen] Erweitern

Public Function fset_btnGotFocus()
    Screen.ActiveControl.FontUnderline = True
End Function
Public Function fset_btnLostFocus()
    Screen.ActiveControl.FontUnderline = False
End Function

Und der Aufruf dann so:

Code [Auswählen] Erweitern

=fset_btnGotFocus()   ' bzw.
=fset_btnLostFocus()

Das hat zumindest den Vorteil, dass du nicht 160 Mal den Funktionsaufruf bei der Ereigniseigenschaft eintippen musst.

[kfisch]

Ich habe jetzt die Lösung von beiden getestet, die von MaggieMay ist genau das was ich suche 

Vielen Dank für die schnelle Hilfe!