Cara Melihat Koordinat (X,Y) Kursor pada Mouse dengan VB6

Tanpa kita sadari tiap kali memegang mouse pada PC dan mengarahkannya ke bagian-bagian menu di windows ternyata kursor tersebut memiliki koordinat posisi X, Y. Pada pembahasan kali ini admin akan menguraikan sebuah sourcode Cara Melihat Koordinat (X,Y) Kursor pada Mouse. Function yang digunakan Windows API.

Windows API

Windows API adalah serangkain file-file yang berekstensi *.dll yang berada pada folder windows (C:\Windows\System32) yang berfungsi sebagai pendukung bagi para programmer untuk membuat sebuah script atau kode-kode perintah dalam bentuk, tombol perintah dan menu dari script atau kode-kode tersebut yang sesuai di Windows API dan kemudian diteruskan oleh Sistem Operasi itu sendiri dalam pembuatan komponennya.

Langsung masuk ke pokok pembahasan, buatlah sebuah project - form, module dan tambahkan komponen timer dengan interval 1 dan 2 buah label. Disini admin menambahkan komponen progressbar agar kelihatan lebih bagus.

Copykan Syntak dibawah ini ke module 

Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Kemudian dilanjutkan double klik dan copykan juga syntak berikut akan tetapi sesuai dengan prosedur dan komponen yang terdapat pada form

Dim tPA As POINTAPI

Private Sub Form_Load()
GetCursorPos tPA
lhWnd = WindowFromPoint(tPA.X, tPA.Y)
End Sub

Private Sub Timer1_Timer()
    Dim tPA As POINTAPI
    GetCursorPos tPA
    lblX.Caption = "X : " & tPA.X
    lblY.Caption = "Y : " & tPA.Y
    On Error Resume Next
    Me.ProgressBar2.Value = tPA.X
    Me.ProgressBar1.Value = tPA.Y
End Sub

Kemudian simpan dan RUN/F5, posisi dari kursor yang kita gerakan maka akan terhitung pada label X dan Y yang terdapat pada form diatas. Untuk sorucodenya bisa didownload pada LINK INI. Semoga artikel ringan ini dapat bermanfaat bagi pembaca-pembaca sekalian.