vb6实现鼠标移出效果

最新推荐文章于 2024-10-18 09:26:26 发布

shepherd_dirk

最新推荐文章于 2024-10-18 09:26:26 发布

阅读量1.1k

点赞数 1

文章标签： vb6 鼠标移出

本文链接：https://blog.csdn.net/shepherd_dirk/article/details/87934329

版权

vb 专栏收录该内容

10 篇文章

订阅专栏

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim MouseOver As Boolean
    '判断当前鼠标位置是否在Object1上
    MouseOver = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
    If MouseOver Then
        Me.BackColor = RGB(255, 0, 0)
        SetCapture Command1.hwnd
    Else
        Me.BackColor = RGB(0, 255, 0)
        ReleaseCapture
    End If
End Sub