Bonjour, je cr=E9e un control o=F9 l'utilisateur peut en=20
cliquand sur un bouton augmenter ou diminer une jauge (un=20
peut comme PSP8). En maintenant le bouton gauche de la=20
souris il peut la d=E9placer de gauche =E0 droite o=F9 il veut=20
sur l'=E9cran. J'utilie alors un Timer :
Dim pnt As POINT_API
Dim lValue As Long
btnCombo.Etat =3D ecbxpPress
GetCursorPos pnt
lValue =3D (pnt.X - mlMemoX) + mnValMemo
DrawJauge lValue
If GetKeyState(VK_LBUTTON) >=3D 0 Then
mbCboGauge =3D False
Timer1.Enabled =3D False
End If
L'API GetKeyState attend que l'utilisateur relache le=20
bouton de la souris.
Le souci est que s'il passe sa souris sur d'autre=20
control, cela n'est pas ignor=E9; l'evenement mousemove des=20
autres controles voit la souris !=20
Comment bloquer momentanement la souris, enfin que les=20
autres controles l'ignore.. Merci !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
nierdernsill
J'ai trouvé : Pour ce que cela interesse c'est l'API Setcapture usercontrol.hwnd bye
-----Message d'origine----- Bonjour, je crée un control où l'utilisateur peut en cliquand sur un bouton augmenter ou diminer une jauge
(un
peut comme PSP8). En maintenant le bouton gauche de la souris il peut la déplacer de gauche à droite où il veut sur l'écran. J'utilie alors un Timer : Dim pnt As POINT_API Dim lValue As Long btnCombo.Etat = ecbxpPress GetCursorPos pnt lValue = (pnt.X - mlMemoX) + mnValMemo DrawJauge lValue If GetKeyState(VK_LBUTTON) >= 0 Then mbCboGauge = False Timer1.Enabled = False End If L'API GetKeyState attend que l'utilisateur relache le bouton de la souris. Le souci est que s'il passe sa souris sur d'autre control, cela n'est pas ignoré; l'evenement mousemove
des
autres controles voit la souris ! Comment bloquer momentanement la souris, enfin que les autres controles l'ignore.. Merci ! .
J'ai trouvé : Pour ce que cela interesse c'est l'API
Setcapture usercontrol.hwnd
bye
-----Message d'origine-----
Bonjour, je crée un control où l'utilisateur peut en
cliquand sur un bouton augmenter ou diminer une jauge
(un
peut comme PSP8). En maintenant le bouton gauche de la
souris il peut la déplacer de gauche à droite où il veut
sur l'écran. J'utilie alors un Timer :
Dim pnt As POINT_API
Dim lValue As Long
btnCombo.Etat = ecbxpPress
GetCursorPos pnt
lValue = (pnt.X - mlMemoX) + mnValMemo
DrawJauge lValue
If GetKeyState(VK_LBUTTON) >= 0 Then
mbCboGauge = False
Timer1.Enabled = False
End If
L'API GetKeyState attend que l'utilisateur relache le
bouton de la souris.
Le souci est que s'il passe sa souris sur d'autre
control, cela n'est pas ignoré; l'evenement mousemove
des
autres controles voit la souris !
Comment bloquer momentanement la souris, enfin que les
autres controles l'ignore.. Merci !
.
J'ai trouvé : Pour ce que cela interesse c'est l'API Setcapture usercontrol.hwnd bye
-----Message d'origine----- Bonjour, je crée un control où l'utilisateur peut en cliquand sur un bouton augmenter ou diminer une jauge
(un
peut comme PSP8). En maintenant le bouton gauche de la souris il peut la déplacer de gauche à droite où il veut sur l'écran. J'utilie alors un Timer : Dim pnt As POINT_API Dim lValue As Long btnCombo.Etat = ecbxpPress GetCursorPos pnt lValue = (pnt.X - mlMemoX) + mnValMemo DrawJauge lValue If GetKeyState(VK_LBUTTON) >= 0 Then mbCboGauge = False Timer1.Enabled = False End If L'API GetKeyState attend que l'utilisateur relache le bouton de la souris. Le souci est que s'il passe sa souris sur d'autre control, cela n'est pas ignoré; l'evenement mousemove
des
autres controles voit la souris ! Comment bloquer momentanement la souris, enfin que les autres controles l'ignore.. Merci ! .
