锐客网

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

vb.net设备列表 vbnet列表框( 二 )

IT技术添加


MyPathName = ThisNode.Parent.Text"\"MyPathName
Dim MyNode As TreeNode = ThisNode.Parent
Call AllPath(MyNode, MyPathName)
Else
'该节点层数等于1，其父节点就是磁盘根目录
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
'为了搜索选中的节点对应目录的文件 ， 需要组成全路径
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.net中怎样获取combobox的列表?。堑迷赩B6中，用combobox.list就行，但在vb.net中怎么不能用了啊for i = 0 to combobox.item.count - 1 :
循环添加到list中呗
end.
vs2008下用 vb.net开发的应用，本机能运行 。另一台机器（装 。net framework） 报 ora-06401错不知道你开发的程序的具体情况，你先这样实验下，新建一个项目，建完了什么都不动直接保存，然后生成，然后把exe拷贝过去，看看是否能运行，显示Form1窗口 。
如果不能就是第二台电脑的问题，如果能，就得分析你开发的程序的具体情况了 。
vb.net 获取打印机列表Public Function EnumPrinters()
Dim PrinterSQL As String =
"SELECT * FROM Win32_Printer"
Dim
printers As Management.ManagementObjectCollection = New
Management.ManagementObjectSearcher(PrinterSQL).Get()
Dim printer As
Management.ManagementObject
For
Each printer In
printers
Dim pde As Management.PropertyDataCollection.PropertyDataEnumerator =
printer.Properties.GetEnumerator
While
(pde.MoveNext)
Try
If pde.Current.Name = "DriverName"
Then
combobox1.Items.Add(pde.Current.Value.ToString)
End
If
Catch ex As
Exception
MessageBox.Show(ex.ToString)
End
Try
End
While
Next
End Function
vb.net设备列表的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet列表框、vb.net设备列表的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：外卖送餐小程序有哪些，送外卖的小程序

下一篇：苹果手机怎么看到照片多大，iphone如何查看照片多大