UC知道ONComm事件不触发
来源：百度知道 编辑：UC知道 时间：2024/09/23 13:26:58
我发送了数据
Private Sub Command2_Click()
MSComm1.Output = " df s"
End Sub
Private Sub MSComm1_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case MSComm1.CommEvent
Case comEvSend
MsgBox "afadfaf", vbOKOnly, ""
End Select
End Sub
触发了。
但我发送一组数据时，
For i = 0 To 15
sendvar(0) = data(i)
MSComm1.Output = sendvar
它却不触发了。
PS：MSComm1.Output发送时是有数据的。
Private Sub Command2_Click()
MSComm1.Output = " df s"
End Sub
Private Sub MSComm1_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case MSComm1.CommEvent
Case comEvSend
MsgBox "afadfaf", vbOKOnly, ""
End Select
End Sub
触发了。
但我发送一组数据时，
For i = 0 To 15
sendvar(0) = data(i)
MSComm1.Output = sendvar
它却不触发了。
PS：MSComm1.Output发送时是有数据的。
Option Explicit
Dim sendvar(0) As Byte
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
For i = 0 To 15
sendvar(0) = i
MSComm1.Output = sendvar
Next
End Sub
Private Sub Command2_Click()
MSComm1.Output = " df s"
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
End Sub
Private Sub MSComm1_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case MSComm1.CommEvent
Case comEvSend
sum = sum + 1 '统计comEvSend次数
Label1.Caption = sum
'MsgBox "afadfaf", vbOKOnly, ""
End Select
End Sub