VB.NET文本框退格按钮点击后光标回起始位问题求助

嗨，很高兴看到你的删除按钮功能已经正常工作了！关于光标回到起始位置的问题，原因是当你直接给pinbox.Text赋值时，WinForms的文本框控件会自动将光标重置到文本开头。我们只需要在修改文本前后手动处理光标位置就能解决这个问题。

这里是修改后的完整代码，我会给你逐行解释：

Private Sub btnCE_Click(sender As Object, e As EventArgs) Handles btnCE.Click
    If pinbox.Text.Count > 0 Then
        '' 记录删除前的光标位置和文本长度
        Dim originalCursorPos As Integer = pinbox.SelectionStart
        Dim originalTextLength As Integer = pinbox.Text.Length

        '' 删除最后一个字符
        pinbox.Text = pinbox.Text.Remove(pinbox.Text.Count - 1)

        '' 计算并设置新的光标位置
        Dim newCursorPos As Integer
        If originalCursorPos = originalTextLength Then
            '' 如果之前光标在文本末尾，删除后光标移到新的末尾
            newCursorPos = originalCursorPos - 1
        Else
            '' 如果光标不在末尾，保持原来的位置不变
            newCursorPos = originalCursorPos
        End If

        '' 应用新的光标位置，确保没有选中内容
        pinbox.SelectionStart = newCursorPos
        pinbox.SelectionLength = 0

        '' 可选：让文本框保持焦点，避免点击按钮后焦点丢失
        pinbox.Focus()
    End If
End Sub

关键细节说明： #

• 记录光标位置：在修改文本前先保存SelectionStart（光标起始位置）和原文本长度，这样我们能判断光标是否在文本末尾。
• 调整光标位置：如果之前光标在末尾，删除字符后光标应该移到新的文本末尾；如果光标在中间，保持位置不变就好，因为删除的是最后一个字符，不会影响前面的光标位置。
• 设置SelectionLength = 0：确保光标是单独的插入点，而不是选中一段文本。
• 可选的Focus()调用：如果点击按钮后文本框失去焦点，可以加上这行让焦点回到文本框，提升用户体验。

另外，你提到按钮当前命名为btnCE后续要修改，建议改成btnDeleteLastChar或者btnBackspace这类更直观的名字，方便后续维护代码哦！

内容的提问来源于stack exchange，提问作者Michalodzien