当鼠标移到按钮上时,按钮背景色变黄色.当鼠标移开按钮上时按钮背景色恢复原状

wjmm

dzsrmyh 发表于 2024-4-11 14:06
分享一下完整的作品噻

就是把按钮放在透明label上，label置底

Private Sub cmdClear_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With cmdClear
        If X > 0 And Y > 0 And X < .Width And Y < .Height Then  '按钮上方
            .BackColor = RGB(255, 255, 0)     '按钮颜色（黄色）
            .ForeColor = &HFF0000 '蓝色
            .Font.Bold = True
        End If

    End With
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    cmdClear.BackColor = &H8000000F
     cmdClear.Font.Bold = False
     cmdClear.ForeColor = &H80000012
End Sub

wjmm

tanglf188 发表于 2024-4-11 13:59
工作表上原理差不多，就是要捕获鼠标的位置，在控件上则标黄底色，不在的还原按钮表面颜色
最简单的是： ...

合适的工作表事件，是什么，教教我

dzsrmyh

wjmm 发表于 2024-4-11 15:04
就是把按钮放在透明label上，label置底

Private Sub cmdClear_MouseMove(ByVal Button As Integer, By ...

能将文件分享一下吗？没整明白

wjmm

dzsrmyh 发表于 2024-4-11 15:38
能将文件分享一下吗？没整明白

见附件。。。。。。。。。。

东山飞鸽

学习了，很棒！很棒！