vb.net Suchen und entfernen Sie eine Zeile in einem Textfeld

Question

Ich bin sehr frustriert zu versuchen, meinen Code zu arbeiten.

Ich versuche, ein ausgewähltes Element in einer Listbox auch in das Textfeld zu entfernen.

Vorbereitungen zum Entfernen von Text;

Der Text wurde entfernt; Aber es ist immer noch in der Textbox.

Hier ist mein Code

Public Class Form1 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
      ListBox1.Items.Add(TextBox1.Text) 
      TextBox2.Text += TextBox1.Text & vbNewLine 
     End Sub 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
      ListBox1.Items.Remove(ListBox1.SelectedItem) 
' 
'//HOW TO REMOVE THE SELECTED TEXT IN THE LISTBOX ALSO REMOVED IN THE TEXTBOX2?? 
' 
' 
     End Sub 
     Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 
      Dim filenames As String = "C:\log\log.txt" 
      My.Computer.FileSystem.WriteAllText(filenames, TextBox2.Text, False) 
     End Sub 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
      Dim filenames As String = "C:\log\log.txt" 
      If My.Computer.FileSystem.FileExists(filenames) Then 
       TextBox2.Text = My.Computer.FileSystem.ReadAllText(filenames) 
       Dim items() 
       items = TextBox2.Lines() 
       For Each item In items 
        ListBox1.Items.Add(item) 
       Next 
      End If 
     End Sub 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
      Clipboard.SetText(ListBox1.SelectedItem) 
     End Sub 
    End Class 

Das Schlimmste ist, dass jedes Mal, wenn ich versuche, es online zu sehen, gibt es keine Fehler, bis ich auf die Schaltfläche klicken, das nicht sein kann ‚Wert sagt Null ' Es passierte jedes einzelne Mal.

Bitte, bevor Sie die -1-Taste mampfen, sagen Sie mir zumindest warum. Ich bin neu in diesem Bereich.

Answer 1

Dies sollte für Sie arbeiten

Public Class Form1 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    TextBox1.Text = TextBox1.Text.Replace(ListBox1.Items(ListBox1.SelectedIndex), Nothing) 
    ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) 
End Sub 

End Class