Artikel ini menjelaskan bagaimana ketika sebuah pointer mouse melewati atau melintasi suatu objek misalnya mouse melintasi objek picturebox maka ketika posisi pointer berada diatasnya maka akan kita tandai dengan warna putih dan ketika mouse pointer keluar dari objek maka akan kembali keasal warna picturebox yaitu hitam.
Untuk membuat sangat simpel Anda cukup menempatkan 1 PictureBox , 1 Timer dan 1 Module
Kemudian anda Ketikan kode dibawah ini di Module :
Option Explicit
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Public Function InBox(ctl As Control) As Boolean
Dim pt As POINTAPI
GetCursorPos pt
ScreenToClient ctl.Parent.hwnd, pt
InBox = Not (pt.x < ctl.Left Or pt.y < ctl.Top Or pt.x > ctl.Left + ctl.Width Or pt.y > ctl.Top + ctl.Height)
End Function
No comments:
Post a Comment