Keskustelu: Koodit: VB6: Hiiren kiihdyttäminen

Tämä VB-ohjelma kiihdyttää käynnissä ollessaan hiiren nopeutta halutun verran. Ohjelma tutkii jatkuvasti hiiren kohtaa GetCursorPos-funktiolla ja siirtää hiiren sitten uuteen paikkaan edellisen arvon perusteella SetCursorPosilla. Muuttuja voimakkuus määrittää, kuinka moninkertainen hiiren nopeus on tavalliseen nähden. Esimerkiksi 1 on tavallinen nopeus, 2 kaksinkertainen, 3 kolminkertainen jne. Toisaalta, laittamalla nopeudeksi pienempi luku kuin 1, hiiren nopeus hidastuu. Esimerkiksi 0.5 tekee hiirestä puolet tavallista hitaamman. Jos nopeus on 0, hiiri ei liiku ollenkaan.

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Dim voimakkuus


Private Sub Form_Load()
    voimakkuus = 3 'kuinka moninkertainen nopeus
End Sub

Private Sub Timer1_Timer()
    Static vanhax, vanhay, ei
    Dim k As POINTAPI
    x = GetCursorPos(k)
    If vanhax <> 0 Or vanhay <> 0 Then
        Caption = k.x & " " & k.y & " " & ei
        x = SetCursorPos(k.x - (vanhax - k.x) * (voimakkuus - 1), k.y - (vanhay - k.y) * (voimakkuus - 1))
        x = GetCursorPos(k)
    End If
    vanhax = k.x
    vanhay = k.y
End Sub

Näppärä

Ei oikein tahdo toimia. Tai ainakin hiiri nykii pahasti pienimmillä arvoilla.

Milläs tämän homman saisi kääntämään justiinsa päinvastaiseksi hiiren liikkeet?

Toiha on tosi hyödyllinen varsinki ku mul ei välil liiku hiiri kunnol ;)

jos tohon laittaa negatiivisen luvun niin hiiri kulkee väärin päin (liikuttaa hiirtä oikealle kursori liikkuu vasemmalle ja sama toisin päin)

Ihan kiva.

en saa tosta millään exeä... :(

ei lähe vörkkii pitääks timerin lisäks lisää jotai muuta?

En mäkään saa toimii..

ei huvita koittaa , hiiri on jo nytte liian nopee =)

Timeriin pitää pistää intervaliin vaikka 1...

voimakkuus vois olla Const-arvo...

Cc, mikä VB sinulla on?