在visual basic .net中使用HID条形码扫描器

Imports System.IO
Imports System.IO.Ports

Public Class Form1
    Dim comPort As SerialPort

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 设置串口通信参数
        comPort = New SerialPort()
        comPort.PortName = "COM1" ' 替换为您的扫描器所连接的串口号
        comPort.BaudRate = 9600 ' 根据扫描器的配置设置波特率
        comPort.Parity = Parity.None
        comPort.StopBits = StopBits.One
        comPort.DataBits = 8
        comPort.Handshake = Handshake.None
        AddHandler comPort.DataReceived, AddressOf comPort_DataReceived

        ' 打开串口通信
        Try
            comPort.Open()
        Catch ex As Exception
            MessageBox.Show("无法打开串口，请检查扫描器是否连接正常。")
        End Try
    End Sub

    Private Sub comPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs)
        ' 读取扫描到的条形码数据
        Dim receivedData As String = comPort.ReadExisting()

        ' 更新UI显示
        Me.Invoke(Sub()
                      TextBox1.Text = receivedData.Trim()
                  End Sub)
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' 关闭串口通信
        If comPort IsNot Nothing AndAlso comPort.IsOpen Then
            comPort.Close()
        End If
    End Sub
End Class