如何在代码后面绑定工具提示？

Question

我有一个类（它将作为我的用户控件的基类），我希望能够通过后面的代码设置工具提示的绑定。 我似乎无法弄清楚如何使其正常工作。 我想通过从构造函数中调用函数“ SetToolTip”来将绑定设置为名为“ ToolTipText”的属性。

这是我到目前为止的内容：

Public MyBaseClass
Inherits UserControl
Private _ToolTipText As String = "This is the default text!!"
Public Property ToolTipText As String
    Get
        Return _ToolTipText
    End Get
    Set(value As String)
        _ToolTipText = value

    End Set
End Property

Private Sub SetToolTip()
    Me.ToolTip = New ToolTip With {.MinHeight = 30, .MinWidth = 150, .FontSize = 16, .Foreground = Brushes.White}

    Dim ToolTipBinding As Binding = New Binding
    ToolTipBinding.Source = Me
    ToolTipBinding.Path = New PropertyPath("ToolTipText")
    ToolTipBinding.Mode = BindingMode.OneWay
    ToolTipBinding.UpdateSourceTrigger = UpdateSourceTrigger.PropertyChanged

    BindingOperations.SetBinding(Me.ToolTip, ToolTipService.ToolTipProperty, ToolTipBinding)
End Sub

Public Sub New()
    SetToolTip()
End Sub
End Class

但是，当我将鼠标悬停在上面时，我只会得到一个空的工具提示（无文本）。 我使用snoop（如果其他人熟悉该工具），并且它没有列出我的类的tooltip属性的任何绑定。 但是奇怪的是，如果我深入研究工具提示属性，我将显示工具提示具有它自己的工具提示属性，该属性设置为正确的文本。 似乎我需要以某种方式绑定到工具提示的内容，而不是它自己的工具提示属性。

Answer 1

所以我想通了。 设置绑定的行应显示为：

BindingOperations.SetBinding(Me.ToolTip, ContentControl.ContentProperty, ToolTipBinding)

我觉得有些奇怪，但是在设置工具提示的工具提示之前。