Discussion :

[Andalor]

Salut

J'ai un formulaire relativement petit, et je voudrais connaitre la méthode à appliquer pour empécher le curseur de la souris de sortir de ce formulaire.

Par exemple, récupérer la position de la souris à chaque mouvement et à partir d'une condition vérifier si elle a dépassé la zone et si c'est le cas forcer le curseur à retourner dans la zone.

Et également comment sur une perte de focus de ce formulaire obliger la remise en focus de ce dernier.

Merci

[guigui5931]

Pour la perte de focus il suffit de faire un setFocus sur un composant lors de l'évenement LostFocus du formulaire.

Pour le mouvement de la souris tu devrait regarder autour de l'évenement

Code :

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

1
2
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

les X et Y doivent indiquer la position de la souris, faut que tu vois ce que tu peut en faire

[Andalor]

Le SetFocus marche bien, seulement la commande LostFocus n'ai pas appelé lorsqu'on minimise ou qu'on change de fenêtre, mais ce n'est pas grave, j'ai réglé le problème en passant par un timer. je te remercie.

Pour la commande MouseMove, le X et le Y renvoient seulement les données de la position du curseur, donc pour les conditions c'est impécable, seulement on ne peut pas les forcer à mettre le curseur à une position de notre choix en leur mettant une valeur.

Donc si quelqu'un a la relation qui permet de forcer la souris à se mettre dans une position.

[guigui5931]

J'ai jamais essayé de faire ça mais est ce que tu peut pas déclencher toi même l'action MouseMove à l'endroit que tu veut en faisant

Code :

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

1
2
 
Form_MouseMove(0, 0, 500, 500)

par exemple??

[Andalor]

Non, il ne veut pas du code.

[Arkham46]

slt,

tu peux aussi essayer avec l'API clipcursor :
http://support.microsoft.com/kb/q179192/

[Andalor]

Merci ça fonctionne nikel

[hanadakia]

salut à tous,
Je cherche à empêcher le curseur de sortir d'un formulaire. Pouvez vous nous écrire la solution ici ? car le lien ne marche plus.
Merci d'avance.

[Thierry_PALLIER]

Bonsoir.

https://support.microsoft.com/fr-fr/help/467674

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Private Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type
 
Private Type POINT
x As Long
y As Long
End Type
 
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" _
(ByVal hWnd As Long, _
lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" _
(ByVal hWnd As Long, _
lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _
ByVal x As Long, _
ByVal y As Long)
 
Private Sub Form_Load()
Command1.Caption = "Limiter le mouvement du curseur"
Command2.Caption = "Supprimer la limitation"
End Sub
 
Private Sub Command1_Click()
'Limite le mouvement du curseur au périmètre de la feuille.
Dim client As RECT
Dim upperleft As POINT
 
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub
 
Private Sub Command2_Click()
'Supprime les limites du curseur
ClipCursor ByVal 0&
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'Supprime les limites du curseur
ClipCursor ByVal 0&
End Sub

Attention de bien mettre un bouton pour supprimer les limites du curseur,
sinon, on ne peut vraiment pas sortir du formulaire.
Cdlt

[hanadakia]

Bonjour,
Merci Thierry_PALLIER. Est ce que vous pouvez me donner le code en vb.net?
Cdlt