Как получать данные с MSComm?

[Alexey-VB]

Нужно использовать MSComm в проге для отправления команд в Com port
и получения ответов от него же.

Как отправлять я научился: MSComm1.Output = "любая команда" & vbCrLf

Получать можно так: Text1.SelText = MSComm1.Input

Вот только проблема в том, куда вставить строку получения данных из Com порта?

Например в Winsock есть функция DataArrival, котороя получает все что приходит на порт.
А как реализовать это в MSComm1?

[tyomitch]

У MSComm всего одно событие, так что с выбором просто

[Alexey-VB]

Я знаю, это событие OnComm.
Но какую строку написать в это событие, что бы все данные приходящие с порта, сразу попадали на TextBox или в переменную?

[clickhere]

Private Sub Timer1_Timer()

Text1.Text = Text1.Text + mstrInp
If Len(mstrInp) > 0 Then Text1.SelLength = Len(Text1.Text)
mstrInp = ""

End Sub
'-------------------------------------------------------------------------------
Private Sub Scan()
Do
DoEvents
If MSComm1.PortOpen = True Then
mstrInp = mstrInp + MSComm1.Input
End If
Loop Until MSComm1.PortOpen = False

End Sub

[Konst_One]

так не делай, плохо

поищи примеры, я выкладывал уже не один раз

[clickhere]

Ладно!!! Тогда так:

Private Sub Timer1_Timer()
Dim Inp As String
Inp = MSComm1.Input
Text1.Text = Text1.Text & Inp
If Len(Inp) > 0 Then Text1.SelLength = Len(Text1.Text)
'Слежение за вводом
'MultiLine у TextBoxa в True и включить ScrollBarы
Inp = ""

End Sub