Question

我有两个texbox（1,2）并且我正在努力使它当我在TextBox1中按Enter键时它改变Textbox2中的行/行并保留已存在的文本。有什么建议？哦，vbCrLf不起作用。

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown 
    If e.KeyCode = Keys.Enter Then 
         TextBox2.Text = TextBox1.Text & vbCrLf 
         TextBox1.Text = "" 
    End If 
End Sub

Answer 1

改变这个：

TextBox2.Text = TextBox1.Text & vbCrLf

对此：

TextBox2.Text &= TextBox1.Text & vbCrLf

您需要将新字符串连接到现有文本，当前代码会覆盖它。此外，请确保Textbox2在属性中设置为 Multiline True 。

Answer 2

您将替换 TextBox2中的现有文本。

改为使用AppendText：

If e.KeyCode = Keys.Enter Then
  TextBox2.AppendText(TextBox1.Text & Environment.NewLine)
  TextBox1.Text = ""
End If

在VB.net中添加行

2 个答案: