Cara mengetahui posisi x dan y pada cursor (GetMousePos) melalui VB

بسم الله الرحمن الرحيم

hallo semua, pa kabar? dah lama nih gak ngepost (emang sejak kapan aq ngepost? haha).
Ok skarang aq mw bagi2 ilmu VB q k kalian semua, itu klo da yg mw mampir sih............

Hal pertama yang harus u punya ialah VB(of course) , aq asumsikan kalian dah pada punya.......

Skarang masuk ke jendelah VB kalian!!! n tambahkan pula pada project kalian es be be:
- 2 texboxt (gunakan name defaultnya "text1" n "text2")
- 1 timer ("timer1" , name default)


n masukin code dibawah ini!!!

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Dim a As POINTAPI
Dim bx As Long
Dim cy As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
mousepos
End Sub

Sub mousepos()
ret = GetCursorPos(a)
bx = a.x
cy = a.y

Text1 = "X : " & bx
Text2 = "Y : " & cy

End Sub



nie dia penjelasannya :

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Dim a As POINTAPI
Dim bx As Long
Dim cy As Long

"code diatas sebagai pendeklarasian untuk mendapatkan akses posisi mouse"


Private Sub Form_Load()
Timer1.Interval = 1
End Sub

"klo yg diatas nie, buat memberikan value interval pada properties timer1 menjadi 1 setiap kali Form diload, klo gak diisi gak bakaln jalan tuh timer1"



Sub mousepos()
ret = GetCursorPos(a)
bx = a.x
cy = a.y

Text1 = "X : " & bx
Text2 = "Y : " & cy
End Sub

"code diatas akan membuat text1 n text2 mengetahui letak X dan Y dari mouse kita, dan script diatas tidak akan berjalan sebelum dipanggil"



Private Sub Timer1_Timer()
mousepos
End Sub

"Code diatas untuk memanggil code yg akan menampilkan posisi mouse"


n skarang coba u jalanin [tekan F5]!!!
taraaaaaaaa, lihat ndiri hasilnya............
jgan lupa commentx yah!!!



code diatas dapat u kembangin lagi, sesuai kreativitas kalian

sekian

"Ilmu kamu tidak akan berguna sebelum kamu memberi ilmu itu ke orang lain"