Réglage de la souris

[Anonyme2]

Je trouve que dans le panneau de config, le réglage de la souris ne permet pas d'ajuster comme on veut la vistesse du pointeur. Je n'arrive pas régler une vitesse qui me convienne avec la souris sans fils que j'ai acheté.

Connaissez-vous les APIS qui permettent de régler les paramètres comme on veut.

Merci

[Patrick88]

un bon virus ralentisseur est tout rentre dans l'ordre, pour ce faire télécharge un keygen sur un site louche ( en #ul, #ex ... etc )

ah ! ? c'était une question sérieuse ....

pat

[Gillou]

J'espère que ça pourra t'aider à la régler plus précisement

Code : Tout sélectionner

Procedure GetMouseSpeed()
    If SystemParametersInfo_(#SPI_GETMOUSESPEED, 0, @l, 0)
        ProcedureReturn l
    EndIf
EndProcedure

Procedure SetMouseSpeed(Speed)
ProcedureReturn  SystemParametersInfo_(#SPI_SETMOUSESPEED, 0, Speed, #SPIF_UPDATEINIFILE | #SPIF_SENDWININICHANGE)
EndProcedure

win = OpenWindow(#PB_Any, 0, 0, 170, 70, "MouseSpeed", #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
If win And CreateGadgetList(WindowID(win))
    Speed = GetMouseSpeed()
    TextGadget(0, 10, 10, 60, 20, "Speed : "+Str(Speed))
    TrackBarGadget(1, 80, 10, 80, 20, 1, 20)
    SetGadgetState(1, Speed)
    ButtonGadget(2, 100, 40, 60, 20, "Appliquer")
    Repeat
        Select WaitWindowEvent()
            Case #PB_Event_Gadget
                Select EventGadget()
                    Case 1
                        SetGadgetText(0, "Speed : "+Str(GetGadgetState(1)))
                    Case 2
                        SetMouseSpeed(GetGadgetState(1))
                EndSelect
            Case #PB_Event_CloseWindow
                Quit = 1
        EndSelect
    Until Quit = 1
EndIf

[Anonyme2]

Merci Gillou

ça marche bien

Je laisse Pat tester sa méthode et me dire si ca va aussi bien