锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net列表框设计 vb列表控件( 二 )

IT技术添加


MyPathName = ComboBox1.TextMyPathName
End If
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
'为vb.net列表框设计了搜索选中的节点对应目录的文件，需要组成全路径
Dim MyAllPathName As String = TreeView1.SelectedNode.Text
Dim MyNode As TreeNode = TreeView1.SelectedNode
If TreeView1.SelectedNode.Level = 0 Then
'如果选中的是根节点
MyAllPathName = ComboBox1.Text
Else
'如果选中的是非根节点，调用递归过程组成全路径
Call AllPath(MyNode, MyAllPathName)
MyAllPathName = MyAllPathName"\"
End If
'根据路径，搜索文件名并显示
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyAllPathName)
ListBox1.Items.Add(MyFile)
Next
End Sub
End Class
用VB编写一个为列表框添加删除选项1、首先打开VB软件vb.net列表框设计，绘制好相应vb.net列表框设计的控件vb.net列表框设计，两个命令按钮vb.net列表框设计，一个列表框 ， 一个文本框 。
2、接下来大概更改一下各个控件的属性 。
3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码 。
4、编写删除代码，记得要遍历查询 。
5、运行后便可以看到这样的程序 。即编写一个为列表框添加删除选项成功 。
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.SelectedIndex0 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.net列表框设计和vb列表控件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：包含oracle查询bind长度的词条

下一篇：笔记本显卡属性怎么找，笔记本显卡属性怎么看