Discussion :

[dalbator]

Bonjour,

J'aimerais avoir un bouton qui a plus de style que les boutons traditionnels de VBA...

J'ai bien trouvé comment mettre des images dans le bouton, mais comme mon image n'est pas rectangulaire, cela pose problème.

En gros j'aimerais que l'image jointe, ait le comportement d'un bouton (quand on clic dessus cela s'enfonce et revienne), mais sans le cadre noir rectangulaire...

Pouvez-vous m'aider ?
dalba

[Lilou51]

Bonjour,

Si tu mets un "label" (intitulé) plutôt qu'un bouton de commande, tu n'auras pas le cadre... et rien ne t'empêche d'y associer néanmoins des commandes...

Bien à toi

[Theze]

Bonsoir,

Comme te le dis Elise, utilise un label et joue sur les évennements MouseDown et MouseUp pour donner l'impression de l'enfoncement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Top = 14
Label1.Left = 44
End Sub
 
Private Sub Label1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Top = 12
Label1.Left = 42
End Sub

Hervé.