VB.net 2005 读出系统所有串口
来源:互联网 发布:unity3d中文论坛 编辑:程序博客网 时间:2024/06/08 07:59
通过读取系统注册表的方法得到所有串口。
Imports Microsoft.Win32
Private Sub Formmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim comValue As String
Dim comreg As RegistryKey = Registry.LocalMachine
Dim returnValue As RegistryKey
ComboBox1.Items.Clear()
Dim hklm As RegistryKey = Registry.LocalMachine
Dim software11 As RegistryKey = hklm.OpenSubKey("HARDWARE")
'打开"HARDWARE"子健
Dim software As RegistryKey = software11.OpenSubKey("DEVICEMAP")
Dim sitekey As RegistryKey = software.OpenSubKey("SERIALCOMM")
Dim Str2() As String = sitekey.GetValueNames()
'获得当前子健下面所有健组成的字符串数组
Dim ValueCount As Integer = sitekey.ValueCount
'获得当前子健存在多少健值
Dim j As Integer
For j = 0 To ValueCount - 1
ComboBox1.Items.Add(sitekey.GetValue(Str2(j)))
'在下拉列表中加入所有健值
Next j
ComboBox1.Text = My.Settings.Default.comSetting
End Sub
On Error Resume Next
Dim comValue As String
Dim comreg As RegistryKey = Registry.LocalMachine
Dim returnValue As RegistryKey
ComboBox1.Items.Clear()
Dim hklm As RegistryKey = Registry.LocalMachine
Dim software11 As RegistryKey = hklm.OpenSubKey("HARDWARE")
'打开"HARDWARE"子健
Dim software As RegistryKey = software11.OpenSubKey("DEVICEMAP")
Dim sitekey As RegistryKey = software.OpenSubKey("SERIALCOMM")
Dim Str2() As String = sitekey.GetValueNames()
'获得当前子健下面所有健组成的字符串数组
Dim ValueCount As Integer = sitekey.ValueCount
'获得当前子健存在多少健值
Dim j As Integer
For j = 0 To ValueCount - 1
ComboBox1.Items.Add(sitekey.GetValue(Str2(j)))
'在下拉列表中加入所有健值
Next j
ComboBox1.Text = My.Settings.Default.comSetting
End Sub
- VB.net 2005 读出系统所有串口
- vb.net 通过注册表读出系统所有串口
- vb.net串口编程
- VB.NET串口通讯
- [VB.NET源码]串口通信
- VB.NET 串口访问之一
- VB.Net 串口通信用法
- VB.NET串口通信例子
- VB.NET 串口异步访问
- VB.NET串口通信例子
- 学习VB.net串口索引(-)
- [VB.NET]ADO数据库处理-读出数据记录
- 在VB.NET中用ADO(不是ADO.NET)获取数据库中的所有非系统表名
- vb.net发音系统
- VB.Net 中的串口操作问题
- [转]VB.NET 的串口操作
- VB.NET 串口连接,控件利用AxMSComm
- [VB.NET源码]串口通讯r322
- 我有一群可以一起分享快乐的亲人和朋友!
- ruby
- 用jython 访问Oracle数据库
- 关于css的命名
- 【原创】10gDataguard最大性能模式
- VB.net 2005 读出系统所有串口
- 正则式的典型运用
- Porting Linux App to Windows
- Sharepoint 站点下应用程序虚拟路径下出现"不能进行输出缓存处理",错误ID 5787 解决方法
- Windows2003-控制面板失效的解决办法
- ASD Practices敏捷开发实践
- php技术资料02
- 在Struts2中使用SiteMesh插件
- WebLogic 9中console异地IP登录不上的解决方法