2011-08-02 72 views

回答

5

试试这个:

Dim b As String() = Split(TextBox1.Text, vbNewLine) 

    TextBox1.Text = String.Join(vbNewLine, b, 1, b.Length - 1) 

参考见String.Join

+0

优雅的解决方案,CodeBuzz! –

1

相当容易:

Private Sub bttnFirstLine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bttnFirstLine.Click 
     txtBox.Text = txtBox.Text.Substring(txtBox.Text.IndexOf(vbCrLf)) 
end sub 

Private Sub bttnFirstLine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bttnFirstLine.Click 
      dim myString = txtBox.text 
      txtBox.Text = myString.Substring(myString.IndexOf(vbCrLf)) 
    end sub 
+0

嗨,感谢它的工作我怎样才能让它也按删除按钮?导致它删除它,但留下那一行我想让它也删除,所以它向上移动下一个 –

+0

更改为'txtBox.Text = myString.Substring(myString.IndexOf(vbCrLf))+ 2'您有跳过LF和CR字符。 –

+0

@ Hand-E-Food将字符串“joe”转换为“Double”类型无效。 是我的代码 昏暗的myString = gathered.TextBox1.Text gathered.TextBox1.Text = myString.Substring(myString.IndexOf(vbCrLf))+ 2 –