Keskustelu: Ohjelmointikysymykset: VB6: Kursorin liikuttelu ohjelmallisesti...

neau33 [11.01.2006 14:29:45]

Hei kaikille!

Tulisin hyvin onnelliseksi ja kiitolliseksi jos joku olisi niin ystävällinen ja antaisi vinkin siitä miten muuttaa hiiriosoittimen paikkaa formin sisällä ohjelmallisesti, VB6-ympäristössä...
saan jutun toimimaan QB:llä mutta en VB:llä.

Merri [11.01.2006 14:40:31]

Tämä tekee ohjelman käyttämisestä huomattavan vaikeaa:

Option Explicit

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
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Paikka As POINTAPI
    Static HylkääSeuraava As Boolean
    ' koska SetCursorPos aiheuttaa tämän samaisen eventin tapahtumisen,
    ' niin me tietenkin joudumme kiertämään ongelman itse
    If HylkääSeuraava Then HylkääSeuraava = False: Exit Sub
    ' hae sijainti
    GetCursorPos Paikka
    ' aseta tämä arvoon true, jotta tämä ei jumita kokoajan niin että
    ' kursori ei pääse formin päälle ollenkaan
    HylkääSeuraava = True
    ' aseta uusi sijainti
    SetCursorPos Paikka.X + 5, Paikka.Y + 5
End Sub

BadSource [11.01.2006 14:41:58]

Oletko kokeillut jo GetCursorPos- ja SetCursorPos-funktiota? Laaksosen esimerkki täällä.

neau33 [11.01.2006 15:34:49]

Ihanaa BadSource!!!

Kittos oikein paljon hyvästä vinkistä.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku