Question

vb串口收数据解释

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case 2
Dim InByte, I As Integer
InByte = MSComm1.Input
For I = 0 To UBound(InByte)
Text2.Text = Text2.Text & Hex(InByte(I)) & " "
Next
End Select
End Sub

上述程序中 case 2 在该处是什么意思啊？
那如果将2该成1可以吗 ？

Answer 1

Select Case MSComm1.CommEvent 检查mscomm1的通讯事件的代码，详细的通讯事件代码如下：
通讯事件包括下列设置值：

常数-----------值--描述
comEvSend------1---在传输缓冲区中有比 Sthreshold 数少的字符。
comEvReceive---2---收到 Rthreshold 个字符。该事件将持续产生直到用 Input 属性从接收缓冲区中删除数据。
comEvCTS-------3---Clear To Send 线的状态发生变化。
comEvDSR-------4---Data Set Ready 线的状态发生变化。该事件只在 DST 从 1 变到 0 时才发生。
comEvCD--------5---Carrier Detect 线的状态发生变化。
comEvRing------6---检测到振铃信号。一些 UART（通用异步接收— 传输）可能不支持该事件。
comEvEOF-------7---收到文件结束（ASCII 字符为 26）字符。

case 2是处理接收事件的代码。改成1就不是处理接收事件了。

Answer 2

判断 MSComm1.CommEvent的值，如果为2，则执行下面语句。