在单个TextBox中运行cmd：如何将光标定位到提示符右侧

当前代码的问题主要出在多余空行触发、输出强制换行，以及用户输入未同步显示这几个点，导致光标跑到提示符下一行。以下是针对性的修改方案：

修改步骤及代码 #

1. 移除多余的空行触发 #

在Form1_Load方法中删除SW.WriteLine()——这行代码会让cmd额外输出空行和新提示符，直接导致光标错位。修改后的代码：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AddHandler P.OutputDataReceived, AddressOf DisplayOutput
    P.StartInfo.CreateNoWindow() = True
    P.StartInfo.UseShellExecute = False
    P.StartInfo.RedirectStandardInput = True
    P.StartInfo.RedirectStandardOutput = True
    P.StartInfo.FileName = "cmd.exe"
    P.Start()
    P.SynchronizingObject = TextBox1
    P.BeginOutputReadLine()
    SW = P.StandardInput
End Sub

2. 调整输出逻辑，避免提示符后换行 #

修改DisplayOutput方法，区分cmd提示符和普通输出：如果是提示符（包含">"）则直接追加文本不换行，否则正常追加换行；同时强制光标移到文本末尾：

Private Sub DisplayOutput(ByVal sendingProcess As Object, ByVal output As DataReceivedEventArgs)
    If Not String.IsNullOrEmpty(output.Data) Then
        ' 提示符后不换行，普通输出保留换行
        If output.Data.Contains(">") Then
            TextBox1.AppendText(output.Data)
        Else
            TextBox1.AppendText(output.Data & vbCrLf)
        End If
        ' 强制光标定位到文本末尾
        TextBox1.SelectionStart = TextBox1.TextLength
        TextBox1.ScrollToCaret()
    End If
End Sub

3. 同步用户输入与TextBox显示，修正光标行为 #

修改Textbox1_KeyPress事件，让用户输入实时显示在TextBox中，同时处理退格键，取消TextBox默认输入行为避免多余换行：

Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    Static Line As String
    If e.KeyChar = Chr(Keys.Return) Then
        ' 发送命令，WriteLine自动添加换行符，无需额外拼接
        SW.WriteLine(Line)
        Line = ""
        ' 取消TextBox默认换行
        e.Handled = True
    ElseIf e.KeyChar = Chr(Keys.Back) Then
        ' 退格键同步删除记录的输入和TextBox内容
        If Line.Length > 0 Then
            Line = Line.Substring(0, Line.Length - 1)
            TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 1)
            TextBox1.SelectionStart = TextBox1.TextLength
            e.Handled = True
        End If
    Else
        ' 记录输入并同步显示到TextBox
        Line = Line & e.KeyChar
        TextBox1.AppendText(e.KeyChar)
        e.Handled = True
    End If
End Sub

4. 设计器属性配置 #

确保TextBox已设置以下属性：

• Multiline = True
• ScrollBars = Vertical
• ReadOnly = False

效果说明 #

修改后，cmd提示符会显示在一行末尾，光标停在提示符右侧；用户输入实时显示，按下回车后命令正常执行，结果换行显示，新提示符依然保持在光标前的同一行。

内容的提问来源于stack exchange，提问作者Eric van Loon