Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: vb.net, Kuinka löydät hiiren

Arttut02 [23.05.2004 00:23:33]

#

Kuinka vb.net:llä saa etsittyä hiiren(kursorin) kohdan, jos se on esimerkiksi desktopin päällä (ei millään formilla) ja kuinka sieltä saisi ns. eventtejä pihalle, kun se ei ole formilla...
Toivottavasti asia tuli tarpeeksi epäselvästi esitettyä...

Meitzi [24.05.2004 19:56:49]

#

Tarvitaan Timeri ja textboxi.

'testing... 1 2 3
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer

    Public Structure POINTAPI
        Dim X As Integer
        Dim Y As Integer
    End Structure

    Public Function GetCurrentX() As Integer
        Dim Position As POINTAPI
        GetCursorPos(Position)
        GetCurrentX = Position.X
    End Function

    Public Function GetCurrentY() As Integer
        Dim Position As POINTAPI
        GetCursorPos(Position)
        GetCurrentY = Position.Y
    End Function


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = "X: " & GetCurrentX() & "  Y: " & GetCurrentY() & " BTN1:" & GetAsyncKeyState(1) & " BTN2:" & GetAsyncKeyState(2)
    End Sub

Tuo getasynckeystate tuntuu antavan vähä isojakin numeroita mutta voi siitä ainakin päätellä että jos <> 0 niin nappi on pohjassa. (noprkl miks tää rivittää väärin)

Vastaus

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

Tietoa sivustosta