VB2008的串口枚举

VB2008的串口枚举

要求自动枚举存在的串口,并将其打印到下拉列表中,并尝试打开和关闭串口

一. 准备控件

1. 串口控件: Serialport

2. 下拉列表:CommBox

3. 显示状态的标签:State_Label

二. 枚举"函数"

'检测有用的串口    Private Sub init_comm()        '使用系统枚举串口        Dim ports As String() = IO.Ports.SerialPort.GetPortNames()        Comm_Box.Items.Clear()      '清Comm的items        '将枚举到的串口添加到Comm控件        Dim port As String        For Each port In ports            Comm_Box.Items.Add(port)        Next port        '将枚举到的第一个串口显示出来        If Comm_Box.Items.Count Then            Comm_Box.Text = Comm_Box.Items.Item(0)        End If    End Sub

三.尝试打开串口

可能已有的串口被占用,打开前需要先尝试一下:

If Comm_Box.Items.Count Then    '判断是否枚举到串口            SerialPort.PortName = Comm_Box.Text            Try                SerialPort.Open() '打开串口                If SerialPort.IsOpen = True Then                    '连接指示                    State_Label.Text = "串口已连接"                    State_Label.ForeColor = Drawing.Color.Green                End If            Catch ex As Exception                MessageBox.Show(ex.Message)            End Try        Else            MsgBox("未发现任何有效串口,请接入串口后重试!", MsgBoxStyle.OkOnly)            init_comm()                     '再次枚举一下串口        End If

四. 尝试关闭串口

Try            SerialPort.Close() '关闭串口            If SerialPort.IsOpen = False Then                '指示连接断开                State_Label.Text = "串口未连接"                State_Label.ForeColor = Drawing.Color.Red            End If        Catch ex As Exception            MessageBox.Show(ex.Message)        End Try