Pada artikel kali ini saya akan berbagi trik bagaimana cara menampilkan kata atau kalimat ketika mouse berada diatasnya.
Biasanya suatu program tediri dari beberapa control didalam form, ketika kita menggerakan mouse diatas control tersebut maka kita dapat mengidentifikasi kalimat atau kata yang posisinya berada diatas mouse.
Misalnya didalam Form terdapat commandbutton dengan Caption "Login" maka ketika mouse berada di atas command tersebut maka akan muncul kalimat atau kata "Login" hal ini berlaku bukan didalam form saja melainkan seluruh wilayah layar desktop kita.
 |
| Output |
Contoh gambar diatas adalah ketika mouse saya berada di aplikasi Snipping Tool ketika saya sedang mengcapture.
Berikut cara pembuatannya:
1. Tanamkan 1 Commandbotton, 1 Textbox, 1 Combobox, 1 Timer (Interval=100) dan 1 buah Label
2. Kemudian ketik kode dibawah ini :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Activate()
Command1.SetFocus
End Sub
Private Sub Timer1_Timer()
Dim pt As POINTAPI
Dim hWnd As Long
Dim textLength As Long
Dim text As String
' Dapatkan posisi mouse
GetCursorPos pt
' Dapatkan handle window dari posisi mouse
hWnd = WindowFromPoint(pt.x, pt.y)
' Pastikan handle window valid
If hWnd <> 0 Then
' Dapatkan panjang teks pada kontrol
textLength = GetWindowTextLength(hWnd) + 1
' Baca teks dari kontrol
text = Space$(textLength)
GetWindowText hWnd, text, textLength
' Tampilkan teks (misalnya pada label)
Label1.Caption = "Mouse berada di atas: " & Trim$(text)
Else
Label1.Caption = "Tidak ada kontrol di atas pointer"
End If
End Sub
3. Kemudian jalankan project Anda dan jelajahi mouse anda sekarang lihat kata apa yang telah dtangkap mouse Anda
No comments:
Post a Comment