1,451
社区成员
发帖
与我相关
我的任务
分享
'----------------------------------------------------
'过程说明:控件鼠标移动处理
'----------------------------------------------------
' Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
' '鼠标移到控件上
'If x > 0 And y > 0 And x < UserControl.ScaleWidth And y < UserControl.ScaleHeight Then
'If Not m_blnMouseEnter Then
' m_nState = 2 '控件状态为PBS_HOT
' m_blnMouseEnter = True
' UserControl.Refresh
'End If
' SetCapture UserControl.hwnd
' '鼠标移出控件外
'Else
' ReleaseCapture
' m_blnMouseEnter = False
' m_nState = IIf(m_blnFocus, 5, 1) '控件状态为PBS_NORMAL
' UserControl.Refresh
'End If
' RaiseEvent MouseMove(Button, Shift, x, y)
' End Sub