Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Hiiren käyttö

Heikki [14.02.2003 21:24:08]

#

Miten voin VB:llä siirtää hiiren kursorin näytöllä vaikka 100 pikseliä ylöspäin?

Antti Laaksonen [14.02.2003 21:42:59]

#

WinApista löytyvät GetCursorPos- ja SetCursorPos-funktiot ovat tähän tarkoitukseen oivallisia. Pieni esimerkki asiasta:

'GetCursorPos-funktion käyttämän POINTAPI-tyypin määrittely
Private Type POINTAPI
    x As Long
    y As Long
End Type

'GetCursorPos hakee hiiren osoittimen paikan
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'SetCursorPos määrittää hiiren osoittimen paikan
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_Load()
    'muuttujamäärittelyt
    Dim kohta As POINTAPI, x As Long
    'haetaan hiiren paikka muuttujaan kohta
    x = GetCursorPos(kohta)
    'siirretään hiiren paikkaa 100 pikseliä ylöspäin
    kohta.y = kohta.y - 100
    'määritetään uusi paikka
    x = SetCursorPos(kohta.x, kohta.y)
End Sub

Gwaur [15.02.2003 00:49:45]

#

Eikös täällä joskus ollut semmoinen koodivinkki että "Hiiren liikuttaminen koodilla" tai joku semmonen? Vai olenko erehtyny kielestä?

Vastaus

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

Tietoa sivustosta