Kode Untuk Memeriksa Apakah Pointer Mouse Masuk Diatas Sebuah Objek di VB6

 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

Kemudian Ketikan kode dibawah ini dibagian Form :

Option Explicit

 

Dim blnFlag As Boolean

 

Private Sub Form_Load()

    Form1.ScaleMode = vbPixels 'pixels units

    Timer1.Interval = 10 'or 1 if posible

End Sub

 

Private Sub timer1_Timer()

    If Not InBox(Picture1) Then

        blnFlag = False

        Timer1.Enabled = False

        Picture1.BackColor = vbBlack

    End If

End Sub

 

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

    If blnFlag Then Exit Sub

    blnFlag = True

   Timer1.Enabled = True

    Picture1.BackColor = vbWhite

End Sub

Jalankan Project anda lalu arahkan pointer mouse ke picturebox, apa yang akan terjadi?

Itulah kode untuk Memeriksa Apakah Pointer Mouse Masuk Diatas Sebuah Objek.

Semoga artikel ini bermanfaat, selamata mencoba semoga berhasil

Related Post: Uncategories