如何将插入符号移动到多行文本框的开头？

Question

我在 Windows 窗体中有一个设置为多行的文本框。我有一个KeyDown 事件处理程序，它识别文本框中的 Enter 键并执行某些操作，然后从文本框中清除文本。如何以编程方式将插入符号移动到文本框的开头？当我在文本框中按 Ctrl + Home 时，我可以看到它。 我使用SelectionStart 属性尝试了以下操作，但它将光标留在了第二行的开头。

Private Sub txtComments_KeyDown(sender As Object, e As KeyEventArgs) Handles txtComments.KeyDown
    If e.KeyCode = Keys.Enter Then
        If txtComments.TextLength > 0 Then
            AddSelection(txtComments.Text)
            txtComments.Clear()
        End If

        If txtComments.TextLength = 0 Then
            txtComments.Focus()
            txtComments.SelectionStart = 0
        End If

    End If
End Sub

Answer 1

问题是因为您正在清除控件并将焦点放在控件的开头之前实际的KeyPress 事件由底层控件处理，因此按 Enter kbd> 仍然会在所有代码运行后 向控件添加新行，这就是您最终出现在第二行的原因。

您可以使用传入事件处理程序的KeyEventArgs 的SuppressKeyPress property 来防止这种行为：

Private Sub txtComments_KeyDown(sender As Object, e As KeyEventArgs) Handles txtComments.KeyDown
    If e.KeyCode = Keys.Enter Then
        If txtComments.TextLength > 0 Then
            AddSelection(txtComments.Text)
            txtComments.Clear()
            e.SuppressKeyPress = True
        End If
    End If
End Sub

该属性的文档说：

获取或设置一个值，该值指示是否应将键事件传递给底层控件。

和：

您可以在 KeyDown 等事件处理程序中将 true 分配给此属性，以防止用户输入。