[VBNET] [API] 마우스 커서 좌표 얻어오기

* VBNET API 를 이용한 마우스 커서 좌표 얻어 오기 예제...

 

Main

 

전체 소스 코드

Form1.vb

 

Imports System.Runtime.InteropServices

Public Class Form1

    'API 선언...
    <DllImport("user32")> _
Public Shared Function GetCursorPos(ByRef pt As Point) As Int32
    End Function

    Dim pi As Point = New Point()

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)

        timer1.Start()

    End Sub

    Protected Overrides Sub OnClosed(ByVal e As System.EventArgs)
        MyBase.OnClosed(e)

        timer1.Stop()

    End Sub


    Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick

        '마우스 커서 좌표 읽어 오기...
        GetCursorPos(pi)

        '현재 마우스 커서 좌표 표시...
        lblX.Text = pi.X.ToString()
        lblY.Text = pi.Y.ToString()


    End Sub


End Class

*예제 결과

 

결과 화면

 

https://kdsoft-zeros.tistory.com/162

[C#] [API] 마우스 커서 좌표 얻어 오기