本帖最后由 qccyjl 于 2010-06-30 17:30:54 编辑

解决方案 »

  1.   

    label1.caption=Label1.Caption & vbCrLf & "com2" & Space(5) & r & Space(5) & "Pass"
    每行有字符限制,超过了会自动换行.不知道r有多长
      

  2.   

    使用串口调试器调试一下先。确保通信没有问题了,再写自己的程序。
    看看这个,这是VB编写的串口调试器,含代码,你可以借鉴一下。
    http://download.csdn.net/source/1262066
      

  3.   

    如果你的代码没别的问题,就这样试试:label1.caption=Label1.Caption & vbCrLf & "com2" Space(5) & left$(r,len(r)-1) & Space(5) & "Pass"
      

  4.   

    Debug.Print Len(r)看一下r的长度,
    如比可见字符多一个,用如下语句,测试看哪个正确:
    label1.caption=Label1.Caption & vbCrLf & "com2" Space(5) & replace(r,chr(13)) & Space(5) & "Pass"

    label1.caption=Label1.Caption & vbCrLf & "com2" Space(5) & replace(r,chr(10)) & Space(5) & "Pass"
    如比可见字符多两个,用如下语句,测试:
    label1.caption=Label1.Caption & vbCrLf & "com2" Space(5) & replace(r,vbcrlf) & Space(5) & "Pass"
      

  5.   

    感谢各位大哥大姐的回答,感激不尽,
    最后我用了2个label来解决的,就是pass单独用一个label