为什么数据不能传过来啊。。急

Question

Private Sub Mscomm1_Oncomm() 
Select Case MSComm1.CommEvent 
Case comEvReceive 
Text2.Text = MSComm1.Input 
MSComm1.InBufferCount = 0
刚才去试试程序发现了个问题。。在mscomm1.input里边有数据，但是text2.text里边永远是“”，附不过来数据。。我也用变量试过，也不行。。怎么办好啊

Answer 1

Private Sub Mscomm1_Oncomm() 
Static sTemp$
Select Case MSComm1.CommEvent 
Case comEvReceive 
sTemp=sTemp & MSComm1.Input 
Text2.Text = sTemp
MSComm1.InBufferCount = 0
你的text2接收的是当前mscomm的接收值，如果接收值一旦发生变化（这种变化如果很快），那么你就只能看到最新的接收值了，或许是空。