从列表框中删除项目

Question

我有一个表单，有9个texbox，当我点击某个按钮时，它将任何内容添加到列表框，我也有一个删除按钮，从列表框中删除一个项目，有没有办法我可以删除该项目并清除它来自的文本框？从Control

Answer 1

删除项目：

ListBox1.Items.Remove(sItemtext) 
ListBox1.Items.RemoveAt(indexItem) 

清除文本框：

TextBox1.Text = "" 

Answer 2

试试这个..

Public Class Form1 
Dim oLB As TextBox 
Dim aList As New List(Of TextBox) 

Sub GetLB(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus 
    oLB = CType(sender, TextBox) 
End Sub 

Private Sub btnMoveToList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveToList.Click 
    ListBox1.Items.Add(oLB.Text) 
    aList.Add(oLB) 
End Sub 

Private Sub btnRemoveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveItem.Click 
    Dim n As Integer = ListBox1.SelectedIndex 

    aList(n).Text = "" 
    ListBox1.Items.RemoveAt(n) 
    aList.RemoveAt(n) 
End Sub 
End Class