Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
With Ports("COM2")
If .BytesToRead > 0 Then
Dim b(.BytesToRead) As Byte
b = .Read
End If
End With
With Ports("COM2")
If .BytesToRead > 0 Then
Dim b(.BytesToRead) As Byte
b = .Read
End If
End With
这个我知道,事例中有,比如想把串口接收数据(b字节数组字节全部显示在一个文本框中)
这个一时不知道如何编写?
With Ports("COM2")
If .BytesToRead > 0 Then
Dim b(.BytesToRead) As Byte
b = .Read
Dim v As String
For Each t As Byte In Bytes
v= v & t
Next
End If
End With