MSComm的Settings设置问题.求解.CSDN都没办法解决的问题

Private Sub Form_Load()
MSComm1.CommPort = 1 'COM端口
MSComm1.Settings = "19200,m,8,2"
MSComm1.InputMode = comInputModeBinary '采用二进制传输
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1 '不产生MSComm事件
MSComm1.PortOpen = True '打开端口
End Sub
'----发送数据-----------------
Private Sub cmdConnect_Click()
Dim bytData1(0) As Byte
Dim bytData(21) As Byte
Dim i As Integer
bytData1(0) = 8
bytData(20) = 8
bytData(21) = 128
MSComm1.Settings = "19200,m,8,2"
Call SendData(bytData1) '发送命令
MSComm1.Settings = "19200,s,8,2"
Call SendData(bytData)
End Sub
Public Function SendData(ByRef bytData() As Byte) As Long
On Error Resume Next

MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.Output

MSComm的Settings设置问题.求解.CSDN都没办法解决的问题 VB 的MSComm是什么 关于MSComm的问题 vc MSComm内存的疑惑 MSComm控件的OnComm事件 VB MSCOMM控件的用法 vb中MSComm控件的问题 关于VB 中MSCOMM的小问题 求VB里的MSCOMM控件 vb mscomm 十六进制数通信的问题