Verhalten CommandButton in UserForm

[Aeontity93]

Hallo liebes Forum,
Ich habe mir die Finger schon wund gesucht und noch nichts passendes gefunden. Daher die Frage ins Forum : Ich möchte gerne, dass meine CommandButtons in den UserForms das gleiche Verhalten aufweisen, wie die Buttons in einer MsgBox, also bei Focuserhalt einen blauen Rahmen und die Hintergrundfarbe etwas 'angepasst' . Wo kann ich einen Tip bekommen, wie das hinzubekommen ist ? Wo muss ich suchen ? Ich bin für jeden Hinweis dankbar .
Vielen Dank schon Mal ....

[BoskoBiati]

Hi,

haben Dir die Antworten hier: https://www.herber.de/forum/messages/2013506.html
nicht genügt?

[Warkings]

Hallo liebes Forum,
Ich habe mir die Finger schon wund gesucht und noch nichts passendes gefunden. Daher die Frage ins Forum : Ich möchte gerne, dass meine CommandButtons in den UserForms das gleiche Verhalten aufweisen, wie die Buttons in einer MsgBox, also bei Focuserhalt einen blauen Rahmen und die Hintergrundfarbe etwas 'angepasst' . Wo kann ich einen Tip bekommen, wie das hinzubekommen ist ? Wo muss ich suchen ? Ich bin für jeden Hinweis dankbar .
Vielen Dank schon Mal ....

Vielleicht so! Das ist nicht das gleiche Verhalten, aber die Schaltfläche wird hervorgehoben

Code:

Sub SetButtonFocusStyle(ByRef btn As MSForms.CommandButton, ByVal focus As Boolean)
    If focus Then
        btn.BackColor = RGB(221, 235, 247)
        btn.Font.Bold = True
    Else
        btn.BackColor = &H8000000F
        btn.Font.Bold = False
    End If
End Sub
Private Sub CommandButton1_Enter()
   SetButtonFocusStyle CommandButton1, True
End Sub

Private Sub CommandButton1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   SetButtonFocusStyle CommandButton1, False
End Sub

Wenn das in Deine Richtung geht, kannst Du das ja in eine Klasse packen und modularer gestalten.

[volti]

Hallo,

ergänzend:

Ich hatte hier auch noch etwas dazu geschrieben:

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


Gruß KH

[knobbi38]

@Volti:

es geht auch ganz ohne Subclassing und API Timer.

Hallo,

es muß ja nicht immer ein CommandButton sein. Die gleichen Ergebnisse lassen sich auch mit einem Label erreichen, wenn man das MouseMove- und das Click-Event auswertet. Wenn es um mehr als ein Steuerelement geht, wird so etwas am einfachsten mit Klassen umgesetzt, wie ich das hier mal mit einem Switchboard gemacht habe:

https://vbasteleien.de/viewtopic.php?t=718#p2403

Gruß Knobbi38

[volti]

Danke Knobbi,
Für deinen Beitrag. Eine gute Möglichkeit.

Die Mousemove-Möglichkeit ohne Timer hatte ich im Herberbeitrag auch gleich als erstes angeführt.

Und danke für den Link VBasteln, den kannte ich noch nicht.

Gruß Karl-Heinz