Discussion :

[The_Super_Steph]

Bonjour,

Je suis en train de fabriquer des boutons maisons avec des étiquettes.J'avais mis la discussion en IHM, puis je l'ai déplacée en VBA, pensant que c'était plus approprié, et puis finalemenbt, Mout1234 me dit qu'elle est mieux en IHM... donc voici tout le problème depuis le début :

Mon bouton s'appelle Actualiser.

Pour donner une apparence 3dEnfoncé quand je clique et qu'il revienne en relief, j'ai mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Actualiser_Click(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
'Apparence de l'étiquette Actualiser 3DEnfoncé
Me.Actualiser.SpecialEffect = 2
 
'Apparence de l'étiquette Actualiser EnRelief
Me.Actualiser.SpecialEffect = 1
 
End Sub

Voyant que ça ne fonctionnait pas, j'ai changé mon code pour celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Actualiser_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
'Apparence de l'étiquette Actualiser 3DEnfoncé
Me.Actualiser.SpecialEffect = 2
 
End Sub
 
 
Private Sub Actualiser_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Me.Actualiser.SpecialEffect = 1
 
End Sub

Mais ça ne marche toujours pas.

Quelqu'un peut-il m'aider ?

Merci,

Steph

Mout1234 m'a répondu :

C'est vague! A première vue ton code fonctionne...
Expliques ce qui ne va pas et ce que tu cherches à obtenir.

Pour finir, mon dernier post :

Bonjour Mout1234,

En fait, que ce soit avec l'un ou l'autre des codes, lorsque je clique sur l'étiquette, elle reste en 3DEnfoncé même si je relâche le clic de la souris (en gros, le bouton ne remonte pas).

Depuis, j'ai également essayé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Actualiser_Click(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
'Apparence de l'étiquette Actualiser 3DEnfoncé
Me.Actualiser.SpecialEffect = 2
 
Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
'Apparence de l'étiquette Actualiser EnRelief
Me.Actualiser.SpecialEffect = 1
 
End Sub

Ca marche, mais c'est franchement pas terrible puisque c'est seulement quand la souris n'est plus sur l'étiquette qu'elle prend une apparence EnRelief...

@ Modérateurs : j'ai mets tout de suite la discussion de VBA en délestage

Est-ce que quelqu'un peut m'aider ?

Merci beaucoup,

Steph

[marot_r]

J'ai un peu de misère à suivre ton code mais j'essaierai un

Code :

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

DoEvents

ou un

Code :

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

me.repaint

après le changement d'effet.

A+

[mout1234]

Sauf erreur de ma part, la solution devrait être

Code :

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

1
2
3
4
5
6
Private Sub Actualiser_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   
        Me.Actualiser.SpecialEffect = 2   
End Sub 
Private Sub Actualiser_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)   
        Me.Actualiser.SpecialEffect = 1   
End Sub

D'ailleurs je viens d'essayer et cela marche sans problème.
Es-tu sur que lorsque tu as fait cette version, que tu n'avais laissé aucun code parasite (notamment dans l'évènement click)...