vb6串口接收16进制字节并每次输出1个字节

以下是vb6代码示例，可以实现串口接收16进制字节并每次输出1个字节：

Private Sub MSComm1_OnComm()

Dim incomingData As String
Dim dataLength As Integer
Dim i As Integer

If MSComm1.CommEvent = comEvReceive Then
incomingData = MSComm1.Input
dataLength = Len(incomingData)

For i = 1 To dataLength Step 2
MSComm1.Output = Mid(incomingData, i, 2)
Next i

End If

End Sub

说明：

1. MSComm1_OnComm()是一个事件处理程序，在串口接收到数据时自动调用。

2. 如果MSComm1.CommEvent等于comEvReceive，则表示串口接收到了数据。

3. 将接收到的数据存储在incomingData变量中，并计算数据长度。

4. 使用一个循环来遍历incomingData中的每个16进制字节，并通过MSComm1.Output将每个字节输出到串口。

5. 注意，每个16进制字节都是由两个ASCII字符组成的，所以循环步长为2。