vb串口读数据

'串行口通讯，接受来自识读器的数据
Private Sub MSComm1_OnComm()Static intNum As Long
Dim nReceiveCount As Integer
Select Case MSComm1.CommEvent    Case comEvCD
    Case comEvCTS
    Case comEvDSR
    Case comEvRing
    Case comEvReceive
 Do
 nReceiveCount = MSComm1.InBufferCount
      Sleep (100)  'API 函数,挂起当前进程一段时间
       Loop Until MSComm1.InBufferCount = nReceiveCount
        StrFromComm = MSComm1.Input
             intNum = intNum + 1
Call ReadIniForString(StrFromComm)'--------------------------------------------------
   
'--------------------------------------------------
'ReadIniFile ("c:\temp.txt")
                
'---------------------------------------------------------
'每次读写后将内容写到数据输出文件里。(根据用户的选择0表示写数据，1表示不写)'If WriteFileLOG = 0 Then Call WriteLOGData(iniTempFile)'---------------------------------------------------------
    Case comEvSendEnd Select
    CurNum = intNum
End Sub