DES BOUTONS A LA XP
CladStrife
Messages postés
4
Date d'inscription
dimanche 24 février 2002
Statut
Membre
Dernière intervention
26 février 2002
-
24 févr. 2002 à 17:23
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 10 nov. 2004 à 13:09
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 10 nov. 2004 à 13:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2683-des-boutons-a-la-xp
https://codes-sources.commentcamarche.net/source/2683-des-boutons-a-la-xp
10 nov. 2004 à 13:09
Private Function Hittest(X As Single, Y As Single) As Boolean
Dim pnt As POINT_API
Dim rBox As RECT
GetWindowRect hwnd, rBox 'get the control's rectangle relative to screen
GetCursorPos pnt
'is it over the button?
If PtInRect(rBox, pnt.X, pnt.Y) Then
Hittest = True
Else
If m_bFocused Then m_State xp_Focused Else m_State xp_Normal
End If
End Function
24 oct. 2003 à 17:29
20 août 2002 à 19:59
28 févr. 2002 à 06:48
Par contre, juste une petite modif dans le controle pour éviter que celui-ci se redessine tant que la souris bouge dessus (effet visuel pas très beau) :
Remplacer l'evennement original MouseMove par celui-ci :
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCapture hwnd
If Hittest(X, Y) Then
If Button = vbLeftButton And m_bFocused Then
m_State = xp_Pressed
Make_xpButton
Else
If m_State <> xp_Hovered Then
m_State = xp_Hovered
Make_xpButton
End If
End If
RaiseEvent MouseMove(Button, Shift, X, Y)
Else
Make_xpButton
ReleaseCapture
RaiseEvent MouseOut
End If
End Sub
Les modifs sont les suivantes :
Dans la partie ou Hittest(X, Y) est vrai, j'ai rajouté le test If m_State <> xp_Hovered Then qui permet de ne pas repasser dessus si le bouton est déjà en Hovered.
Ensuite la procédure de dessin du bouton Make_xpButton à été déplacée et répétée dans chaque test pour ne l'appeler que si nécessaire.
25 févr. 2002 à 20:49
Si le bouton n'a pas le focus.. (cad n'est pas entouré de bleu), l'affichage du bouton pressé n'apparait pas et seul le contour bleu s'installe.
Contrairement au cas où le contour bleu du focus est présent, l'affichage de la pression s'effectue.
Dans XP l'affichage de la pression se fait dans tous les cas..
25 févr. 2002 à 18:35
Manque juste la posibilité de mettre une image et de deplacer le texte (gauche, bas, droite, haut) ... mais je ressouds ça et poste pour que tlm en profite
24 févr. 2002 à 20:12
tk jessairai quand je l'aurai ;p
10/10 ton source ;)
24 févr. 2002 à 18:01
@+ Bonne prog
24 févr. 2002 à 17:23