Changer la vitesse du curseur de la souris [Résolu]

frogeraie 10 Messages postés dimanche 26 février 2006Date d'inscription 18 janvier 2007 Dernière intervention - 4 avril 2006 à 20:42 - Dernière réponse : frogeraie 10 Messages postés dimanche 26 février 2006Date d'inscription 18 janvier 2007 Dernière intervention
- 10 avril 2006 à 21:23
je voudrais que le rapport entre le deplacement de la souris sur la
table et le deplacement du curseur sur l'ecran soit beaucoup plus
petit. avec xp dans le tableau de configuration on peut modifier cette
"vitesse" mais ce n'est pas suffisant pour mon application: je voudrais
un 10 fois plus. il doit y avoir une api qui permer cela, j'ai essaye
avec getcursorpos et setcursorpos mais cela ne marche pas:

Option Explicit

Private Declare Function GetCursorPos Lib "user32" _

(lpPoint As PointAPI) As Long

Private Declare Function GetKeyState Lib "user32" _

(ByVal nVirtKey As Long) As Integer

Private Declare Function SetCursorPos Lib "user32" _

(ByVal x As Long, ByVal y As Long) As Long





Private Type PointAPI

x As Long

y As Long

End Type

Dim ab, bb, t&, attente



Private Sub Form_Load()

Timer1.Interval = 100

End Sub



Private Sub Timer1_Timer()

Dim Tampon As PointAPI

Dim Coord As PointAPI

'---Affiche les coordonnées du curseur de la souris---

GetCursorPos Coord

If GetKeyState(vbKeyEscape) >= 0 Then

Label1.Caption = "échappé relaché"



Label2.Caption " x " & _

Coord.x & " , y = " & Coord.y

GetCursorPos Tampon





Form1.Caption = "Mouse Position : " & Tampon.x & "-" & Tampon.y



ab = Coord.x + (Tampon.x - Coord.x) / 10

bb = Coord.y + (Tampon.y - Coord.y) / 10

t& = SetCursorPos(ab, bb)

GetCursorPos Coord

Else

End



End If

End Sub



qulqu'un aurait-il une idee?
Afficher la suite 

2 réponses

zavier666 267 Messages postés mardi 7 septembre 2004Date d'inscription 30 avril 2009 Dernière intervention - 10 avril 2006 à 20:32
+3
Utile
Essaie avec setparametersinfos (va voir sur mons site dans user32), elle est présentée, mais je te garantie pas que tu atteindras les valeurs que tu souhaite
Cette réponse vous a-t-elle aidé ?  
frogeraie 10 Messages postés dimanche 26 février 2006Date d'inscription 18 janvier 2007 Dernière intervention - 10 avril 2006 à 21:23
0
Utile
oui c'est ca!

plus en detail cela donne:

[vbcode]

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _

(ByVal uAction As Long, _

ByVal uParam As Long, _

ByVal lpvParam As Any, _

ByVal fuWinIni As Long) As Long



Const SPI_GETMOUSESPEED = 112

Const SPI_SETMOUSESPEED = 113



Private Sub Command1_Click()



Dim Speed As Long

Speed = 5

SystemParametersInfo SPI_SETMOUSESPEED, 0, ByVal Speed, 0



End Sub



/vbcode

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.