mscomm读取16进制

在使用 mscomm 读取 16 进制时，需要将传输模式设置为二进制模式，然后将读取到的字符串转换为 16 进制格式。

以下是示例代码：

Private Sub MSComm1_OnComm()

If MSComm1.CommEvent = comEvReceive Then
'将接收到的字符串转换为 16 进制格式
Dim hexValue As String
Dim i As Integer
For i = 1 To Len(MSComm1.Input)
hexValue = hexValue & Right$("0" & Hex(Asc(Mid$(MSComm1.Input, i, 1))), 2)
Next i
'在此处理 16 进制数据
'...
End If

End Sub

在上面的示例代码中，MSComm1.Input 表示接收到的字符串。通过循环遍历字符串中的每个字符，并使用 Asc 函数和 Hex 函数将其转换为 16 进制格式。最后，将所有 16 进制字符拼接成一个字符串表示 16 进制值。在转换完成后，就可以对数据进行相关处理了。