VB求助~~~~51单片机与PC机串口程序~~

来源：百度知道 编辑：UC知道 时间：2024/05/15 12:56:22
单击command1，产生oncomm事件，返回字符串，显示在text1中~~~多谢~~~问题解决追加100分~~

代码如下，ONCOMM事件1和2调试通过，其它未试。
Private Sub Command1_Click()
MSComm1.Output = "123456"
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputMode = comInputModeText
Text1 = ""
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvSend
Text1 = "comEvSend"
Case comEvReceive
Text1 = "comEvReceive"
Case comEvCTS
Text1 = "comEvCTS"
Case comEvDSR
Text1 = "comEvDSR"
Case comEvCD
Text1 = "comEvCD"
Case comEvRing
Text1 = "comEvRing"
Case comEvEOF
Text1 = "comEvEOF"
End Select
End Sub

以下参考MSDN：
OnComm 常数
常数 值 描述
comEvSend 1