wince.net下串口 VB 源码

使用方法:Dimm_cs232AsNewCRs232m_cs232.openPort()'打开串口Dimsend()AsByte={&H1,&H2,&H3}m_cs232.write(send)'发送Dimiasinteger=m_cs232.GetReadBuffer()'得到串口输入缓冲区当前字节数Dimrev()AsByterev=m_cs232.read(3)'读取3个字节m_cs232.clsPort()