Cara Melihat Koordinat (X,Y) Kursor Pada Mouse Dengan Vb6

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

Windows API
Windows API ialah serangkain file-file yang berekstensi *.dll yang berada pada folder windows (C:\Windows\System32) yang berfungsi sebagai pendukung bagi para programmer untuk menciptakan sebuah script atau kode-kode perintah dalam bentuk, tombol perintah dan sajian dari script atau kode-kode tersebut yang sesuai di Windows API dan lalu 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 supaya 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 mekanisme 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 sanggup didownload pada LINK INI. Semoga artikel ringan ini sanggup bermanfaat bagi pembaca-pembaca sekalian.
Author: 
    author
    No related post!