WPF - 从文本框中删除助记符函数

Question

刚刚发现是什么导致HTML编辑器在键盘上使用某个字母时将玩具扔掉...

在同一页面上，有一些文本框包含html页面名称，标题，导航URL，菜单文本等内容。如果其中一个文本框包含带有下划线的文本（例如"Test_Page"），则字母"P"在 HTML 编辑器中将不起作用。我猜（并且可能在这里偏离基础，因为我认为文本框.txt可以做到这一点与 Label.content 不同）WPF 正在获取文本条目并将其用作助记键。我确实知道将 RecognisesAccessKey 设置为 false 可能会治愈它，但找不到添加该属性或访问 ContentPresenter 的方法......

这是我用来创建控件的类，理想情况下希望在此处设置它

Public Class TBx
Inherits TextBox
Public Shared IsNewRecordProperty As DependencyProperty = DependencyProperty.Register("IsNewRecord", GetType(Boolean), GetType(TBx), New PropertyMetadata(New PropertyChangedCallback(AddressOf IsNewRecordChanged)))
Public Property IsNewRecord As Boolean
    Get
        Return GetValue(IsNewRecordProperty)
    End Get
    Set(value As Boolean)
        SetValue(IsNewRecordProperty, value)
    End Set
End Property
Protected Overrides Sub OnInitialized(e As System.EventArgs)
    MyBase.OnInitialized(e)
    VerticalAlignment = Windows.VerticalAlignment.Center
    HorizontalAlignment = Windows.HorizontalAlignment.Left
    BorderBrush = New SolidColorBrush(Colors.Silver)
    Height = 22
    SpellCheck.IsEnabled = True
    UndoLimit = 0
    If IsNewRecord = True Then
        BorderThickness = New Thickness(1)
        IsReadOnly = False
        Background = New SolidColorBrush(Colors.White)
    Else
        BorderThickness = New Thickness(0)
        IsReadOnly = True
        Background = New SolidColorBrush(Colors.Transparent)
    End If
End Sub
Private Shared Sub IsNewRecordChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
    Dim vControl As TBx = TryCast(sender, TBx)
    Dim vBoolean As Boolean = e.NewValue
    If vBoolean = True Then
        vControl.BorderThickness = New Thickness(1)
        vControl.IsReadOnly = False
        vControl.Background = New SolidColorBrush(Colors.White)
    Else
        vControl.BorderThickness = New Thickness(0)
        vControl.IsReadOnly = True
        vControl.Background = New SolidColorBrush(Colors.Transparent)
    End If
End Sub
End Class

谢谢

Answer 1

无法从类中找到简单的方法来执行此操作，但这在页面上有效

Dim CP As New ContentPresenter
            CP.RecognizesAccessKey = False

然后将文本框添加到内容演示器

Case 1
                    vLabel.Text = "Page Name"
                    With vTB
                        .Width = 200
                        .Name = vName & "PageNameTB"
                        .ToolTip = "This is the short name for the page"
                        .IsNewRecord = IsNewRecord
                    End With
                    CP.Content = vTB

将 CP 添加到网格

  RegisterControl(SecurePage_Grid, vTB)
            Grid.SetColumn(vLabel, 0)
            Grid.SetRow(vLabel, i)
            If i = 1 Then
                Grid.SetRow(CP, i)
                Grid.SetColumn(CP, 1)
            Else
                Grid.SetRow(vTB, i)
                Grid.SetColumn(vTB, 1)
            End If
            vGrid.Children.Add(vLabel)
            If i = 1 Then
                vGrid.Children.Add(CP)
            Else
                vGrid.Children.Add(vTB)
            End If