串口通信的问题
本人初学者，，下面是一段16进制接收的函数。。
Private Sub hexReceive()
On Error GoTo Err
Dim receiveArr() As Byte
Dim receiveData As String ' 数据暂存
Dim Counter As Integer ' 接收数据个数计数器
Dim i As Integer ' 循环变量
Dim z As Integer
If (MSComm.InBufferCount > 0) Then
Counter = MSComm.InBufferCount ' 读取接收数据个数
receiveData = "" ' 清缓冲
receiveArr = MSComm.Input ' 数据放入数组
For i = 0 To (Counter - 1) Step 1 ' 数据格式处理
If (receiveArr(i) < 16) Then
receiveData = receiveData & "0" + Hex(receiveArr(i)) & Space(1) ' 小于16，前面加0
Else
receiveData = receiveData & Hex(receiveArr(i)) & Space(1) ' 加空格显示
End If
Next i
Txtreceive.Text = Txtreceive.Text + receiveData & vbCrLf
End If
text1.text=receiveArr（32）
我用串口调试软件发了：FF 01 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 01 01 00 01 00 00 00 00 00 01 00 01 00 02 01 数据，，text1.text显示的内容是空，但是Txtreceive.Text接收到的是完整数据
请大家帮忙看下~
[解决办法]
LZ：你想Text1.text = receiveArr（32），实际做不到，可以将接收形成的16进制字符的最后2字符转换为10进制值西安市于Text1.texT
对你的接收代码放MSComm1_OnComm中，修改部分代码，
Option Explicit Dim receiveData As String ' 数据暂存Private Sub Form_Load() MSComm1.InputMode = comInputModeBinary MSComm1.RThreshold = 1 MSComm1.PortOpen = True Txtreceive = "" Text1 = ""End SubPrivate Sub MSComm1_OnComm() Dim receiveArr() As Byte Dim i As Integer ' 循环变量 Dim z As Integer Select Case MSComm1.CommEvent Case 2 receiveArr = MSComm1.Input ' 数据放入数组 For i = 0 To UBound(receiveArr) ' 数据格式处理 If Len(Hex(receiveArr(i))) = 1 Then receiveData = receiveData & "0" + Hex(receiveArr(i)) '& Space(1) ' 小于16，前面加0 Else receiveData = receiveData & Hex(receiveArr(i)) '& Space(1) ' 加空格显示 End If Next i Text1.Text = Val("&H" & Mid(receiveData, 65, 2)) Txtreceive.Text = receiveData & vbCrLf End SelectEnd Sub