vb
Private Sub cmdSend_Click()
' 发送数据
If Len(txtSend.Text) > 0 Then
commSerial.Output = txtSend.Text
Else
MsgBox "请输入要发送的数据。", vbExclamation, "错误"
End If
End Sub
Private Sub commSerial_OnComm()
' 处理接收到的数据
If commSerial.CommEvent = comEvReceive Then
txtReceive.Text = txtReceive.Text + commSerial.Input
End If
End Sub
在cmdSend_Click事件中,程序检查txtSend文本框中是否有数据,如果有,则通过串口发送出去。
在commSerial_OnComm事件中,程序检查是否有数据到达(通过检查CommEvent属性是否为comEvReceive),
如果有,则将其添加到txtReceive文本框中。