在所有按钮上将光标更改为超链接手形

Question

我有很多按钮，不希望搜索所有的按钮。所以我猜有两个部分。如何循环并仅将其应用于按钮控件，以及我可以更改哪些属性来更改悬停行为。

我已经尝试了以下几种方法。

Private Sub Report_Load()
Dim cc As Control
           For Each cc In Me.Controls
                   If InStr(LCase(cc.Name), "command") > 0 
                   cc.hover = "hyperlink hand"
                   End If
           Next cc

​

​

Answer 1

我能够弄明白这一点。它可能会绊倒你的原因是自动完成可能对你没有帮助，但它仍然工作了这么长时间，所有的按钮都以work命令开始。(有时他们可能不会如此小心！)

Dim cc As Control
           For Each cc In Me.Controls
                   If cc.ControlType = acCommandButton Then
                   cc.QuickStyle = 9
                   cc.CursorOnHover = acCursorOnHoverHyperlinkHand
                   End If
           Next cc