vb 利用serialport做串口通信，如何实现收到一帧数据后，延时100毫秒左右，回发一帧数据

'设置RThreshold属性一帐长度触发

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent '判断MSComm1通信事件

Case comEvSend

Case comEvReceive '表接收事件

'在触发中加延时函数，和发送数据

Sleep(1000)‘要换成延进函数

MSComm1.Output ="数据"

'思路如此，接收发送数据都要做具体处理

如下参考：

COMMTIMEOUTS TimeOuts

// 设定读超时

TimeOuts.ReadIntervalTimeout=MAXDWORD

TimeOuts.ReadTotalTimeoutMultiplier=0

TimeOuts.ReadTotalTimeoutConstant=0

// 设定写超时

TimeOuts.WriteTotalTimeoutMultiplier=500

TimeOuts.WriteTotalTimeoutConstant=2000

// 设置超时

SetCommTimeouts(串口句柄,&TimeOuts)

---