vb 串口通讯，不能促发 Mscomm 事件
Private Sub CmdSend_Click()
'传送字符
MSC.InBufferCount = 0
If MSC.PortOpen = True Then
MSC.RThreshold = 1
MSC.Output = Trim(Txt.Text)
End If
End Sub
Private Sub MSC_OnComm()
Select Case MSC.CommEvent
Case comEvReceive
Lab.Caption = Lab.Caption & MSC.Input
End Select
End Sub
我已经将 settings 设置为9600,n,8,1
RThreshold 设为 1
我要实现的功能是：按CmdSend按钮之后，Txt.Text的内容会出现在 Lab.Caption 中。但是运行完 CmdSend_Click()
之后，它不会促发 MSC_OnComm() 事件。我刚接触这个东西，不知道怎么回事，各位，帮帮忙。。
[解决办法]
Private Sub CmdSend_Click()
'传送字符
MSC.InBufferCount = 0
If MSC.PortOpen = True Then
MSC.RThreshold = 1
MSC.Output = "Trim(Txt.Text)"
Else
MSC.PortOpen = True
MSC.RThreshold = 1
MSC.Output = "Trim(Txt.Text)"
End If
End Sub
