MSCOMM 工作在事件驅(qū)動(dòng)通訊模式時(shí)可獲得所有串口信號。把下面的程序加入可捕獲到串口事件。可以在相關(guān)的 Case 語句之后插入代碼來處理特定的錯(cuò)誤或事件。 
    注意：RThreshold 和 Sthreshold 缺省值是0，如果你不改變這個(gè)值，對應(yīng)的事件不會(huì)發(fā)生。例如，你保持 Sthreshold 的值為0，那么數(shù)據(jù)到達(dá)不會(huì)激活該程序。 
    Private Sub MSComm1_OnComm () 
     Select Case MSComm1.CommEvent 
     
    ' 錯(cuò)誤 
     Case comEventBreak ' 收到 Break。 
     Case comEventCDTO ' CD (RLSD) 超時(shí)。 
     Case comEventCTSTO ' CTS Timeout。 
     Case comEventDSRTO ' DSR Timeout。 
     Case comEventFrame ' Framing Error 
     Case comEventOverrun '數(shù)據(jù)丟失。 
     Case comEventRxOver'接收緩沖區(qū)溢出。 
     Case comEventRxParity' Parity 錯(cuò)誤。 
     Case comEventTxFull '傳輸緩沖區(qū)已滿。 
     Case comEventDCB '獲取 DCB] 時(shí)意外錯(cuò)誤 
     
     ' 事件 
     Case comEvCD ' CD 線狀態(tài)變化。 
     Case comEvCTS ' CTS 線狀態(tài)變化。 
     Case comEvDSR ' DSR 線狀態(tài)變化。 
     Case comEvRing ' Ring Indicator 變化。 
     Case comEvReceive ' 收到 RThreshold 個(gè)字符 
     Case comEvSend ' 傳輸緩沖區(qū)有 Sthreshold 個(gè)字符 
     Case comEvEof ' 輸入數(shù)據(jù)流中發(fā)現(xiàn) EOF 字符 
     End Select 
    End Sub 
<END>