Private Sub MSComm1_OnComm()
Dim ST As String, I As Integer
On Error GoTo acd
DoEvents
Select Case MSComm1.CommEvent
        ST = MSComm1.Input
        Debug.Print ST
        text1.text=text1.text & st
End SelectExit Sub
acd:
End Sub
我是用上面的代码接收串口的信息的,可是不能换行呀,串口有发过来回车符的呀,不过在TEXT上显示为"口口"这个字样,用系统自带的超级终端就可以认出来.郁闷呀.

解决方案 »

  1.   

    "口口"的ASCII是多少?自己替换一下文本
      

  2.   

    楼主的这个SELECT CASE 语句怎么没有CASE分支啊?
    照楼主这样写的话,连出错信息和电平跳转信息全都给接收啦。
      

  3.   

    你是用什么方式接收数据的,文本格式还是二进制格式?
    我想你应该是用文本格式接收的,那就只有自己用vbcrlf转换了