vb.net在文本框中查找并删除一行

Question

我非常沮丧地试图让我的代码工作。

我正在尝试在文本框中删除列表框中的所选项目。

准备删除文字;

删除了文字; 但它仍然在文本框中。

这是我的代码

    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

最糟糕的是，每次我尝试在线查找时，都没有错误，直到我点击“值不能为空”的按钮 它每次都发生。

请在混搭-1按钮之前，至少告诉我原因。我是新来的。

Answer 1

这应该对你有用

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

结束班