关于MSComm控件。

Question

我喜欢用事件
Private Sub MSComm1_OnComm()
    Dim GetChar As String
    Select Case MSComm1.CommEvent
        Case comEvReceive
            GetChar = MSComm1.Input
            ...
        Case Else
            Exit Sub
    End Select如果想用循环
Dim GetChar As String
...
MSComm1.InputLen = 0
do while(...)
If MSComm1.InBufferCount Then
   GetChar = MSComm1.Input
End If
...
doevents
loopEnd Sub