Question

麻烦VB高手帮我看看我这个mscomm控件的程序哪里出错了，为什么Private Sub MSComm1_OnComm()始终没有执行

Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1" '设置波特率、校验位、数据位、停止位的字符串
MSComm1.CommPort = 1 '决定串口号
MSComm1.InputLen = 0 ' 告诉控件读入整个缓冲区
MSComm1.PortOpen = True '打开串口
MSComm1.Output = "a1121" '向串口发送字符串"abcd"
MSComm1.PortOpen = False '关闭串口
End Sub

Private Sub MSComm1_OnComm() '当收到串口返回值时触发这个事件
Text2.Text = "hello!" ‘为了检测oncomm是否运行！
Dim InString As String
MSComm1.InputLen = 0 ' 读取所有可用数据。
MSComm1.InputMode = 0
If MSComm1.InBufferCount Then ' 检查数据。
' Read data.
InString = MSComm1.Input
End If
Text2.Text = InString
End Sub

上面的程序发送的字符是可以检测到的，已经发送出去了，我是把串口的2，3口直接连起来的，也就是发送什么就接受什么，但是想把接受的字符显示出来，始终没有成功，麻烦大家给看看吧！

Answer 1

程序设计错误！

串口 在Command1_Click()事件里打开、发送、然后直接关闭了！

你 还指望 OnComm() 事件能发生嘛？

通常，串口设置、打开 放 Form_Load 事件里，如下

Private Sub Command1_Click()
MSComm1.Output = "a1121" '向串口发送字符串"abcd"
End Sub

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1" '设置波特率、校验位、数据位、停止位的字符串
MSComm1.CommPort = 2 '决定串口号
MSComm1.RThreshold = 5 '*******关键：在 MSComm 控件设置 CommEvent 属
'性为comEvReceive 并产生 OnComm 之前，设置并返回的要
'接收的字符数。

MSComm1.InputLen = 0 ' 告诉控件读入整个缓冲区
MSComm1.PortOpen = True '打开串口

End Sub

‘设置了 MSComm1.RThreshold = 5 ，下面的事件才发送！
Private Sub MSComm1_OnComm() '当收到串口返回值时触发这个事件
Text2.Text = "hello!" '为了检测oncomm是否运行！
Dim InString As String
MSComm1.InputLen = 0 ' 读取所有可用数据。
MSComm1.InputMode = 0
If MSComm1.InBufferCount Then ' 检查数据。
' Read data.
InString = MSComm1.Input
End If
Text2.Text = InString
End Sub

Answer 2

楼上说的是一个原因
还有一个原因,没有设置
MSComm1.RThreshold 的值时,是不会产生Oncomm的Receive事件的

改成下面试试
Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1" '设置波特率、校验位、数据位、停止位的字符串
MSComm1.CommPort = 1 '决定串口号
MSComm1.InputLen = 0 ' 告诉控件读入整个缓冲区
MSComm1.PortOpen = True '打开串口
MSComm1.Output = "a1121" '向串口发送字符串"abcd"
MSComm1.RThreshold = 1 '设置收到多少字节时产生一次Oncomm的comEvReceive事件
End Sub

Private Sub MSComm1_OnComm() '当收到串口返回值时触发这个事件
Select Case MSComm1.CommEvent
Case comEvReceive
Dim InString As String
InString = MSComm1.Input
End If
Text2.Text = InString
End Sub

Answer 3

我遇到同样问题，mscomm控件属性中设置 Threshold = 1 问题解决了

Answer 4

你打开串口了，发送一个数据后直接就关了，还能接收数据吗？