Question

关于vb的mscomm控件的问题。

下面这一段程序什么意思。这是用mscomm控件接收的一段程序，主要是case2 这一句。我只知道一个case comEvreceive，没见过case2 的啊。

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case 2 -----------------------------就是这一句，是干什么的啊？
strTxt = strTxt & MSComm1.Input
If Right(strTxt, 1) = Chr(13) Then
Text1.Text = strTxt
strTxt = ""
End If
End Select
End Sub
新手。。。

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是处理接收事件的代码。那个“2”其实是个代码，代替“comEvReceive”，意思就是有数据被接收到了。下面当然就是数据接收函数。

Answer 2

CommEvent的值等于2 就是comEvreceive发生。也就是串口接收到了数据的意思