2011-08-02 67 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 –