Global Const MSCOMM_EV_SEND = 1 Global Const
MSCOMM_EV_RECEIVE = 2 Global Const MSCOMM_EV_CTS = 3 Global Const
MSCOMM_EV_DSR = 4 Global Const MSCOMM_EV_CD = 5 Global Const
MSCOMM_EV_RING = 6 Global Const MSCOMM_EV_EOF = 7 Global Const
MSCOMM_ER_BREAK = 1001 Global Const MSCOMM_ER_CTSTO =
1002 Global Const MSCOMM_ER_DSRTO = 1003 Global Const
MSCOMM_ER_FRAME = 1004 Global Const MSCOMM_ER_OVERRUN = 1006 Global
Const MSCOMM_ER_CDTO = 1007 Global Const MSCOMM_ER_RXOVER =
1008 Global Const MSCOMM_ER_RXPARITY = 1009 Global Const
MSCOMM_ER_TXFULL = 1010 在mscomm1_ONCOMM中加入 Select Case
MSCOMM1.CommEvent 'i=1,2... '
错误部分 Case MSCOMM_ER_BREAK '插入处理BREAK代码 Case MSCOMM_ER_CDTO '插入处理CD(RLSD)超时代码 Case MSCOMM_ER_CTSTO '插入处理CTS超时代码 Case MSCOMM_ER_DSRTO '插入处理DSR超时代码 Case MSCOMM_ER_FRAME '插入处理帧错误代码 Case MSCOMM_ER_OVERRUN '插入处理数据丢失代码 Case MSCOMM_ER_RXOVER '插入处理接收缓冲器溢出代码 Case MSCOMM_ER_RXPARITY '插入处理校验错误代码 Case MSCOMM_ER_TXFULL '插入处理发送缓冲器满代码 '事件部分 Case MSCOMM_EV_SEND
Case MSCOMM_EV_CD
'插入处理CD信号改变代码 msgbox"CD_CHANGE" Case
MSCOMM_EV_CTS '插入处理CTS信号改变代码 'MsgBox
"EV_CTS" Case MSCOMM_EV_DSR '插入处理DST信号改变代码 ' MsgBox "EV_DSR" Case MSCOMM_EV_EOF '插入处理收到一个文本文件结束字(26)代码 Case MSCOMM_EV_RING '插入处理检测到一个振铃信号代码
Case MSCOMM_EV_RECEIVE '插入接收到设定的字符数时产生该事件代码 'MsgBox "EV_RECEIVE" Case
MSCOMM_EV_SEND '插入处理发送缓冲器中的字符数低于设定的数值时产生该事件的代码 End Select
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
