mscomm 控件接收的小问题 但急急急！！！！ 请高手指点 高分相送

Question

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
       Case 2
       Text1.Text = ""
       Dim i
       For i = 1 To 10000
           DoEvents
       Next i
       Text1.Text = MSComm1.Input
end select
TEXT1就是串口中所取得的内容

Answer 1

我想知道为什么：
   readstr = MSComm1.Input
 readstr取不到值。

Answer 2

qyyayong(小李飞刀) 的方式还是不行。
我想知道为什么 readstr = MSComm1.Input   这句取不到值，请高手指点，加延时可以吗？在前还是后呢？
急急急！！！！！在线等待。。

Answer 3

我想问题可能出在这个语句上：
MSComm1.InBufferCount = 0 '清除接收缓冲区数据你把它注释掉看看

Answer 4

不会吧，我就是这种方法做的要加缓冲，
也就是廷时，要在读COM口的前面加

Answer 5

不好意思忘了对你说，
要在MSCOMM的属性的rthrdshold的属性改为1

Answer 6

to: qyyayong(小李飞刀) 
系统提示：MSComm1.CommEvent 未定义