VB.NET中MaskedTextBox弹出窗体后光标偏移问题求助

在VB.NET WinForms应用中，当焦点位于MaskedTextBox时，弹出MessageBox或显示其他窗体后，光标位置会自动重置到第二个字符。

复现步骤 #

1. 创建空白WinForms应用，添加一个MaskedTextBox控件。
2. 将MaskedTextBox的Mask属性设置为">&&&&&&-&"。
3. 在窗体中添加以下代码：

Public Class Form1
    Private Sub MaskedTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MaskedTextBox1.TextChanged
        If MaskedTextBox1.Text = "000000-" Then
            MsgBox("hi")
        End If
    End Sub
End Class

4. 运行应用，在MaskedTextBox中连续输入6个0，触发MsgBox后关闭弹窗，光标会移回第二个字符位置。

补充说明：该问题并非MessageBox特有，显示任何其他窗体后都会出现相同问题，示例代码如下：

Public Class Form1
    Private Sub MaskedTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MaskedTextBox1.TextChanged
        If MaskedTextBox1.Text = "000000-" Then
            Dim f As New Form1
            f.Show() '关闭新窗体后，原窗体的MaskedTextBox光标会偏移
        End If
    End Sub
End Class

原因分析 #

问题根源在于MaskedTextBox的掩码开头>&的特殊处理逻辑：>表示强制后续字符大写，&是可选字符占位符。当控件所在窗体失去焦点（如弹出其他窗体）再重新获得焦点时，MaskedTextBox内部会重新解析掩码规则，在处理开头的>符号后，错误地将光标定位到第二个字符位置，而非之前记录的光标位置。这是控件焦点恢复时的掩码解析行为异常，未正确保存和恢复光标状态。

解决办法 #

方法1：手动保存并恢复光标位置 #

在显示弹窗或新窗体前记录当前光标位置，待控件重新获得焦点时恢复该位置：

Public Class Form1
    Private cursorPosition As Integer = 0

    Private Sub MaskedTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MaskedTextBox1.TextChanged
        If MaskedTextBox1.Text = "000000-" Then
            ' 保存当前光标位置
            cursorPosition = MaskedTextBox1.SelectionStart
            MsgBox("hi")
        End If
    End Sub

    Private Sub MaskedTextBox1_GotFocus(sender As Object, e As EventArgs) Handles MaskedTextBox1.GotFocus
        ' 恢复光标位置
        MaskedTextBox1.SelectionStart = cursorPosition
    End Sub
End Class

方法2：调整掩码格式，移除开头的>符号 #

如果不需要强制大写功能，直接将掩码修改为"&&&&&&-&"即可避免该问题。若需保留大写功能，可在TextChanged事件中手动转换输入为大写：

Public Class Form1
    Private Sub MaskedTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MaskedTextBox1.TextChanged
        ' 手动转换输入为大写
        Dim currentPos = MaskedTextBox1.SelectionStart
        MaskedTextBox1.Text = MaskedTextBox1.Text.ToUpper()
        ' 恢复光标位置，避免转换后光标跳转
        MaskedTextBox1.SelectionStart = currentPos

        If MaskedTextBox1.Text = "000000-" Then
            MsgBox("hi")
        End If
    End Sub
End Class

同时将Mask属性设置为"&&&&&&-&"。

方法3：使用模态对话框替代非模态对话框 #

若场景是显示新窗体，使用ShowDialog()模态对话框替代Show()，模态对话框会阻塞当前线程，控件焦点恢复时状态保存更完整：

Public Class Form1
    Private Sub MaskedTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MaskedTextBox1.TextChanged
        If MaskedTextBox1.Text = "000000-" Then
            Using f As New Form1
                f.ShowDialog() ' 关闭模态对话框后，光标位置正常
            End Using
        End If
    End Sub
End Class

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