在 Windows 窗体中更改 ToolBarButton 的光标

Question

请注意：

在这篇文章中，我指的是过时的 ToolBarButton 而不是 ToolStripButton。

我正在实现一个帮助功能，您可以在其中进入帮助模式以显示某些 ui 元素的帮助。将鼠标悬停在附加了此类帮助的元素上后，光标应更改为 Cursors.Help。这适用于大多数元素，但不适用于ToolBarButtons，因为它缺少.Cursor 属性。

到目前为止，我一直在做的是：

Private Sub EnterHelpMode() 
    helpMode = True
    toolBar.Cursor = Cursor.Help
    ' ... other help-related stuff
End Sub

不幸的是，这给了整个ToolBar 那个帮助图标。我如何实现相同的行为但仅适用于ToolBarButtons？我还尝试使用ToolBar 上的MouseEnter 事件，但与ButtonClick 事件不同的是，这个事件没有给我ToolBarButtonClickEventArgs 参数，所以我无法确定哪个ToolBarButton 被悬停（哪个有道理，因为源并不总是ToolBarButton，而ButtonClick 是）。

提前致谢

Answer 1

修改为使用帮助模式：

Dim HelpMode as Boolean = False  ' a global variable

Private Sub tsButton_Click(sender As Object, e As EventArgs) Handles tsbUpdte.Click
    HelpMode = True
    Me.Cursor = Cursors.Cross
End Sub


Private Sub HelpForControls_MouseDown(sender As Object, e As EventArgs) Handles tsButton1.MouseDown, tsButton2.MouseDown
    If HelpMode = True Then
        Me.Cursor = Cursors.Default 
        Dim oName as String = CType(Sender, ToolStripButton).Name   ' this works only for ToolStripButtons        
        Call ShowHelp(oName)   ' show some help content using a dedicated sub
        HelpMode = False
        Exit Sub   ' terminate function
    End If
End Sub

Private Sub ShowHelp(StrName as String)
    SELECT CASE StrName
       Case "BtnEdit" : MsgBox("This button will allow you to edit selected record.")
       Case "BtnDelete" : MsgBox("This button will allow you to delete selected record.")
    End Select
End Sub

您也可以使用 Me.Capture 并检查单击的内容（如 cmets 中所建议的那样），但我没有使用此属性的经验。