大佬们求助一下，为什么我运行第三个控件的时候，就会出现卡顿和无反应
Private Sub Combo1_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub
Private Sub Command1_Click()
Dim str11 As String
Dim sendData(6) As Byte '发送缓存
Dim getData() As Byte '接收缓存
sendData(0) = "&H01"
sendData(1) = "&H10"
sendData(2) = "&H02"
sendData(3) = "&H05"
sendData(4) = "&H01"
sendData(5) = "&H7E"
sendData(6) = "&H50"
MSComm1.Output = sendData
getData = MSComm1.Input
'Label1.Caption = getData(0)
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 4
MSComm1.InputMode = comInputModeText '采用文本传输
MSComm1.PortOpen = True
MSComm1.RThreshold = 0
End Sub
Private Sub Command2_Click()
Dim str11 As String
Dim sendData(6) As Byte '发送缓存
Dim getData() As Byte '接收缓存
sendData(0) = "&H02"
sendData(1) = "&H10"
sendData(2) = "&H02"
sendData(3) = "&H05"
sendData(4) = "&H01"
sendData(5) = "&H3A"
sendData(6) = "&H50"
MSComm1.Output = sendData
getData = MSComm1.Input
End Sub
Private Sub Command3_Click()
Dim str11 As String
Dim sendData(6) As Byte '发送缓存
Dim getData() As Byte '接收缓存
sendData(0) = "&H03"
sendData(1) = "&H10"
sendData(2) = "&H02"
sendData(3) = "&H05"
sendData(4) = "&H01"
sendData(5) = "&H07"
sendData(6) = "&H90"
MSComm1.Output = sendData
getData = MSComm1.Input
End Sub

从VB的角度来看，三个按钮的代码并没有什么差异，唯一的区别在于发送到串口的指令
所以这似乎不是VB能解决的问题，你需要检查一下发送的指令内容有什么问题