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开始 删除一个不存在的序号引发错误
本文题目:vb.net列表框设计 vb中组合了文本框和列表框的控件
文章出自:http://myzitong.com/article/hgiioc.html