在VB.net中的代码中创建串行端口

我正在尝试使用代码在VB.net中创建一个串口.因为我正在创建一个类库,所以我无法使用内置组件.我试过实例化一个新的SeialPort()对象,但这似乎还不够.我确信有一些简单的我想念,任何帮助将不胜感激！谢谢！

附：我应该补充一点,我此时遇到的问题是获取代码来处理datareceived事件.除此之外,它可能正在起作用,但由于这个问题我无法分辨.

如果要使用事件,请确保使用’withevents’声明serialPort对象.下面的示例将允许您连接到串行端口,并将使用接收的字符串引发事件.

Imports System.Threading

Imports System.IO

Imports System.Text

Imports System.IO.Ports


Public Class clsBarcodeScanner

Public Event ScanDataRecieved(ByVal data As String)
WithEvents comPort As SerialPort

Public Sub Connect()
    Try
        comPort = My.Computer.Ports.OpenSerialPort("COM5",9600)
    Catch
    End Try
End Sub

Public Sub disconnect()

    If comPort IsNot nothing AndAlso comPort.IsOpen Then
        comPort.Close()
    End If

End Sub

Private Sub comPort_DataReceived(ByVal sender As Object,ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles comPort.DataReceived
    Dim str As String = ""
    If e.EventType = SerialData.Chars Then
        Do
            Dim bytecount As Integer = comPort.BytesToRead

            If bytecount = 0 Then
                Exit Do
            End If
            Dim byteBuffer(bytecount) As Byte


            comPort.Read(byteBuffer,bytecount)
            str = str & System.Text.Encoding.ASCII.GetString(byteBuffer,1)

        Loop
    End If

    RaiseEvent ScanDataRecieved(str)

End Sub
End Class