vb.net列表框设计 vb中组合了文本框和列表框的控件

vb.net编写一个为列表框添加删除选项的应用程序，如果该字符串在列表框中，

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

创新互联网站建设公司一直秉承“诚信做人，踏实做事”的原则，不欺瞒客户，是我们最起码的底线！ 以服务为基础，以质量求生存，以技术求发展，成交一个客户多一个朋友！专注中小微企业官网定制，成都网站设计、网站建设，塑造企业网络形象打造互联网企业效应。

If e.KeyChar.ToString() = Chr(13) Then

Dim str As String = TextBox1.Text

If Not ListBox1.Items.Contains(str) Then

ListBox1.Items.Add(str)

End If

End If

End Sub

Private Sub btn_Remove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ListBox1.SelectedIndex 0 Then

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

End If

End Sub

Private Sub btn_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

End Sub

用VB编写一个为列表框添加删除选项

1、首先打开VB软件，绘制好相应的控件，两个命令按钮，一个列表框，一个文本框。

2、接下来大概更改一下各个控件的属性。

3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码。

4、编写删除代码，记得要遍历查询。

5、运行后便可以看到这样的程序。即编写一个为列表框添加删除选项成功。

VB.NET列表框问题

有这个条件是为了避免 当列表没有选项的时候 或者 有选项但没有选中的时候 点击删除按钮会引发错误 selectindex =-1 是没有选中的时候默认值 而列表序号从0开始 删除一个不存在的序号引发错误