RegularChanged事件为常规TextBox？

Question

我一直在做一些研究，我似乎无法为常规 文本框找到SelectionChanged的任何类型的事件。任何人都可以帮我这个。我 不 想要使用RichTextBox。感谢

Answer 1

通过收听TextBox的{​​{3}}事件，您可以粗略地获得类似的行为：

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler TextBox1.MouseUp, AddressOf TextBox1_OnMouseUp
    End Sub

    Private Sub TextBox1_OnMouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
        Dim textBox As TextBox = DirectCast(sender, TextBox)
        Dim selectedText As String = textBox.SelectedText
        Console.WriteLine(selectedText)
    End Sub


End Class

<强>结果：

修改

此外，为了在双击期间做出正确反应，您可以使用以下安全防范包含您的代码，它将确保在第一次点击期间不输出误报。

Dim isNullOrEmpty As Boolean = String.IsNullOrEmpty(selectedText)
If Not isNullOrEmpty Then
    Console.WriteLine(selectedText) // your code
End If

Answer 2

请参阅以下链接：

TextBox.SelectionChanged Event - MSDN

文本选择发生变化时发生。

'Declaration
Public Event SelectionChanged As RoutedEventHandler