Petit effet moderne pour boutons

Commenter

Contenu du snippet

Voila une petite petite source sympatoche pour mettre en gras les captions des boutons
je sais c'est pas grand chose mais ca peut quand même être interressant pour animer et amélirer ses menus
J'ai essayé de mettre un niveau de 0.5 mais j'ai pas réussi, alors pas besoin de me dire que cette source est ne mérite même pas le niveau, je sais
Mettez juste 4 bouttons sur une feuille et c'est tout

Source / Exemple : 


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Gras 1, 0, 0, 0
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Gras 0, 1, 0, 0
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Gras 0, 0, 1, 0
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Gras 0, 0, 0, 1
End Sub

Public Sub Gras(Val1, Val2, Val3, Val4 As Integer)
    Command1.FontBold = Val1
    Command2.FontBold = Val2
    Command3.FontBold = Val3
    Command4.FontBold = Val4
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Guidelor)