我通过 MSComm控件做一个接收GPS的小程序，出现一点接收问题！

[goodb515344oy]

我用 MSComm控件接收GPS传过来的信息，
用如下代码接收
Private Sub MSComm1_OnComm()
Dim str1 As String
MSComm1.InputLen = 0
str1 = MSComm1.Input
Debug.Print "接收1 - " + str1
txtBox1.Text = str1
End Sub
但是在txtBxo1上显示的数据是断成两节的，而且不会连续接收，接收两行就把旧的数据刷掉，
要如何修改代码，
大侠们有做过类似的给些建议或给点代码看看哈

[goodb515344oy]

怎么没人用 MSComm的么，自己顶一下！

[openext]

Text1.SelStart = Len(Text1.Text)
Text1.SelText = vbNewLine + shad ‘shad为接收内容
实现的结果是每次接收的最新内容在text下显示，同时光标下移。
自己参考下吧。希望对你有帮助。
好像vb.net下用的是serialport？怎么还用mscomm？

[yanlongwuhui]

[Quote=引用楼主 goodb515344oy 的帖子:]
但是在txtBxo1上显示的数据是断成两节的，而且不会连续接收，接收两行就把旧的数据刷掉，
要如何修改代码，
[/Quote]
不明白“断成两节的”是什么概念。
只要你设置好rthreshold的属性，每接收指定数量的字节，就会触发OnComm事件。txtBox1.Text =txtBox1.Text & str1 才能把你接收的都显示在TEXTBOX控件中

[zdingyun]

Option Explicit
    Dim str1 As String

Private Sub Form_Load()
    MSComm1.PortOpen = True
    MSComm1.RThreshold = 1
End Sub

Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case 2
            MSComm1.InputLen = 0
            str1 = str1 & MSComm1.Input
            Debug.Print "接收1 - " + str1
            txtBox1.Text = str1
    End Select
End Sub

[全速前行]

[Quote=引用 3 楼 yanlongwuhui 的回复:]
引用楼主 goodb515344oy 的帖子:
但是在txtBxo1上显示的数据是断成两节的，而且不会连续接收，接收两行就把旧的数据刷掉，
要如何修改代码，

不明白“断成两节的”是什么概念。
只要你设置好rthreshold的属性，每接收指定数量的字节，就会触发OnComm事件。txtBox1.Text =txtBox1.Text & str1 才能把你接收的都显示在TEXTBOX控件中
[/Quote]

对啊，
还有我想知道你是用什么硬件接收gps的，
呵呵