1. 引用Microsoft Comm Control控件2. 在窗体上放置comm控件3. 在按钮下发送文字Private Sub Command1_Click() MSComm1.Output = "A" '发送一个字节 MSComm1.Output = "Hello" '发送字符串 MSComm1.Output = Text1.TextEnd Sub
