VB中自动检测串口输入

VB6.0中，通信控件在“工程” ――“部件”,选中 Microsoft Comm Control6.0

其文件为 mscomm32.ocx

该控件唯一的一个事件就是OnComm事件。随着CommEvent属性值的变化，其后的Case程序代码便被引发。如此就是自动检测了。（区别于定时检测）

On comm事件中

Select case mscomm1.CommEvent

    Case  comEvCD    ‘CD线的状态发生变化

       If mscomm1.CDHolding then    ‘如果DCD脚位电位为高

       Else

        ….

       End if

    Case  comEvCTS   ‘CTS线的状态发生变化

    Case  comEvDSR   ‘DSR线的状态发生变化

    Case  comEvRing   ‘Ring Indicator 变化

    Case  comEvReceive ‘收到最小接受字符数个字符

    Case  comEvSend   ‘传输缓冲区有最小传输字符数个字符

    Case  comEvEOF   ‘输入数据流中发现EOF 字符

End Select