'打开串口函数，初始化
Private Sub Command1_Click()
= 1        '设置串口号com1
MSComm1.PortOpen = True     '打开串口
MSComm1.InputMode = comInputModeText '字符输入方式
MSComm1.InputLen = 0  'MSComm控件读取输入缓冲区中全部的内容
Shape1.FillColor = RGB(0, 255, 0) '串口打开提示灯为绿色
Shape2.FillColor = RGB(255, 0, 0)
End Sub
'发送数据
Private Sub Command2_Click()
MSComm1.Output = Text1.Text '将数据送到输出缓冲区
End Sub
'接受数据
Private Sub Command3_Click()
Text2.Text = MSComm1.Input '读出缓冲区数据
End Sub
'关闭串口函数
Private Sub Command4_Click()
MSComm1.PortOpen = False  '关串口
Shape2.FillColor = RGB(0, 255, 0) '提示灯
Shape1.FillColor = RGB(255, 0, 0)
End Sub
'初始化提示灯为红
Private Sub Form_Load()
Shape1.FillColor = RGB(255, 0, 0)
Shape2.FillColor = RGB(255, 0, 0)
End Sub
//多多挑毛病，找缺陷。

结帖率：0
https://bbs.bccn.net/thread-332567-1-1.html

期待有价值的回复

能用就好。
早期做过串口控制切换器的代码，为了知道对控制器发送的控制命令是哪些，还做了个串口对接线（好像是将3、6脚对调）拦截发送的命令。有几个串口的常用设置还是要做的，如下：
MSComm1.Settings="9600,n,8,1"    '设置波特率
MSComm1.RThreshold=1             '启动oncomm事件，提高运行效率
再就是将所有设置参数设置好后再MSComm1.PortOpen =True。

恩，波特率在空间属性了设置了，就是您给我指出的。
MSComm1.RThreshold=1 '启动oncomm事件，提高运行效率
倒没有研究过，不知怎么提高的效率。
期待您的回复，谢谢。

说实话，好像没任何价值，基础中的基础，罪过，罪过

谢谢您的批评，确实就是基础。

我想价值还是有一些的。