Jika dilihat dari nama sudah tampak jelas bahwa dua fungsi tersebut berkaitan dengan pointer mouse yaitu Set Cursor Position (SetCursorPos) dan Get Cursor Position (SetCursorPos).

Kedua fungsi API tersebut sekali lagi sudah disediakan oleh Visual Basic dan Anda dapat mengambilnya dengan bantuan API Text Viewer. Jika Anda masih belum mengenal API Viewer anda bisa melihatnya di menu Add-Ins dalam applikasi Visual Basic. Apabila menu API Viewer belum terdapat di menu tersebut, silakan Anda masuk kedalam menu Add-Ins Manager kemudian pilih VB 6 API Viewer dan Check Loaded/Unloaded.

- Setelah anda tekan tombol OK. API Viewer bisa anda jalankan dari dalam menu Add-Ins.
- Setelah anda masuk dalam Applikasi API Viewer pilih menu File -> Load Text File... -> pilih WIN32API kemudian klik tombol Open sehingga akan tampak seperti gambar berikut ini.

Didalam textbox "Type the first..." ketik setcursor maka akan muncul list dari daftar item yang tersedia, Anda tinggal pilih SetCursorPos dan tentukan sifat dari fungsi tersebut Public atau Private, kemudian tekan tombol Add. Maka akan muncul syntax untuk mengakses fungsi SetCursorPos.

Selanjutnya tinggal Anda Copy dan Paste dalam sebuah Modul. Hal ini berlaku juga untuk mencari syntax GetCursorPos atau fungsi yang Anda kehendaki.

Fungsi SetCursorPos
Fungsi ini berfungsi untuk memaksa kursor/pointer mouse ke posisi tertentu dengan sintaks SetCursorPos X,Y. Variabel X dan Y keduanya bertipe Long. Sintaks selengkapnya adalah sebagai berikut:

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Public Sub SetMousePos(xPos As Long, yPos As Long)
  SetCursorPos xPos, yPos
End Sub

Private Sub Command1_Click()
  SetMousePos 0, 0
End Sub

Terlihat dari sintaks tersebut posisi kursor/pointer mouse diletakkan pada pojok kiri atas.

Posisi panah adalah posisi koordinat 0,0 dilayar monitor Anda.

Fungsi GetCursorPos
Fungsi ini berguna untuk mendapatkan posisi kursor dilayar monitor Anda, posisi X atau Y. Fungsi ini memerlukan deklarasi API berjenis type yang bernama POINTAPI. Syntax fungsi ini adalah GetCursorPos N. Dimana N adalah variable bertipe Long. Sintaks untuk fungsi ini selengkapnya adalah sebagai berikut:

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
  x As Long
  y As Long
End Type

Public Function GetPosX() As Long
  Dim n As POINTAPI
  GetCursorPos n
  GetPosX = n.x
End Function

Public Function GetPosY() As Long
  Dim n As POINTAPI
  GetCursorPos n
  GetPosY = n.y
End Function

Dim PosXAsli As Integer
Dim PosYAsli As Integer

PosXAsli = GetPosX
PosYAsli = GetPosY

Demikian sekelumit informasi mendasar tentang fungsi GetCursorPos dan SetCursorPos yang nantinya akan kita rakit menjadi suatu aplikasi kecil dalam tulisan Volume 3 yang akan membahas beberapa fungsi pada Windows API.

Jika ada komentar atau saran bisa dikirimkan ke luthfi.setiawan@sea.ccamatil.com. Untuk membaca tulisan menarik lainnya silakan kunjungi www.sony-ak.com.

Terimakasih.