• Home
 · 
• Custom Controls/Forms/Menus
 · 
• UserControl code that adds GotFocus, LostFocus, MouseIn and MouseOut events to a Form as well as th

UserControl code that adds GotFocus, LostFocus, MouseIn and MouseOut events to a Form as well as th

UserControl code that adds GotFocus, LostFocus, MouseIn and MouseOut events to a Form as well as the read-only properties of HasFocus and

API Declarations


I've left out the property bag code so, in the control's containing Form_Load() event, set the control's Enabled property to True



Rate UserControl code that adds GotFocus, LostFocus, MouseIn and MouseOut events to a Form as well as th

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Michael A. Seel
' [email protected]
'
' :: EVENTS ::
' WndGotFocus: Fires when the container Form receives focus
' WndLostFocus: Fires when the container Form loses focus
' WndMouseIn: Fires when the mouse enters over the container
' WndMouseOut: Fires when the mouse exits from over the container
'
' :: PROPERTIES ::
' Enabled: True or False indicating whether events are fired
' WndHasFocus: True or False indicating whether the container Form as focus
' WndMouseOver: True or False indicating whether the mouse is over the container
'

Private Type PointAPI
    X As Long
    Y As Long
End Type

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function IsChild Lib "user32" (ByVal hWndParent As Long, ByVal hwnd As Long) As Long

Private mMouseOver As Boolean  ' Tracks last known MouseOver status
Private mHasFocus As Boolean   ' Tracks last known HasFocus status

Public Event WndGotFocus()
Public Event WndLostFocus()
Public Event WndMouseIn()
Public Event WndMouseOut()


Public Property Let Enabled(ByVal vData As Boolean)
    If tmrCheck.Enabled <> vData Then
        If vData Then
            tmrCheck.Interval = 1
            tmrCheck.Enabled = True
        Else
            tmrCheck.Enabled = False
        End If
    End If
End Property

Public Property Get Enabled() As Boolean
    Enabled = tmrCheck.Enabled
End Property


Public Property Get WndHasFocus() As Boolean
    On Error Resume Next  ' In case the ContainerHwnd is invalid
    WndHasFocus = (GetForegroundWindow = UserControl.ContainerHwnd)
    On Error GoTo 0
End Property

Public Property Get WndMouseOver() As Boolean
    Dim P As PointAPI, lWnd As Long
    GetCursorPos P
    lWnd = WindowFromPoint(P.X, P.Y)
    On Error Resume Next  ' In case the ContainerHwnd is invalid
    WndMouseOver = CBool(IsChild(UserControl.ContainerHwnd, lWnd)) Or (lWnd = UserControl.ContainerHwnd)
    On Error GoTo 0
End Property

Private Sub tmrCheck_Timer()
    If mHasFocus <> Me.WndHasFocus Then
        mHasFocus = Me.WndHasFocus
        If mHasFocus Then
            RaiseEvent WndGotFocus
        Else
            RaiseEvent WndLostFocus
        End If
    End If
    If mMouseOver <> Me.WndMouseOver Then
        mMouseOver = Me.WndMouseOver
        If mMouseOver Then
            RaiseEvent WndMouseIn
        Else
            RaiseEvent WndMouseOut
        End If
    End If
End Sub