Visual Basic串口通信程序

'停止程序运行 Private Sub Cmdquit_Click() MSComm1.PortOpen = False Unload Me End Sub '启动定时器 把字符通过串口发送出去 Private Sub Cmdsend_Click() 'trim ()去掉字符串前后的空格 MSComm1.Output = Trim(TextSend.Text) '往缓冲区写数据 Timer1.Enabled = True End Sub Private Sub Combo1_Click() Print Combo1.Lis