学习VB.net串口索引(-)

最新推荐文章于 2021-09-06 10:38:09 发布

老土农民

最新推荐文章于 2021-09-06 10:38:09 发布

阅读量580

点赞数

CC 4.0 BY-SA版权

文章标签：串口检索

本文链接：https://blog.youkuaiyun.com/liu_jia_xi/article/details/76088631

Imports System.IO.Ports

Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Sports As String() = SerialPort.GetPortNames()

	ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList '禁止手动输入
       ' ComboBox2.Items.AddRange(Sports)'直接添加串口名称数组
        For Each a In Sports'遍历一遍数组
            ComboBox2.Items.Add(a)
        Next


    End Sub

End Class

如何添加在combox控件中发现有两种方法，一种是通过for遍历，一种直接添加数组；

在显示的控件上是以“COM”+编号的格式，如果我们程序中使用时，有时只用得到数字编号部分，需要通过字符串处理得到串口号；

可以使用如下函数

        If ComboBox2.Text <> "" Then
            ComNo = Val(Mid(Trim(ComboBox2.Text), 4))
        Else
            MsgBox("请选择正确的串口号！")
            Exit Sub
        End If