Private Sub Command3_Click()
Dim var(1) As Variant
MSComm2.CommPort = 1
MSComm2.PortOpen = True
MSComm2.RThreshold = 1
MSComm2.SThreshold = 1
MSComm2.InputLen = 0
MSComm2.InputMode = comInputModeBinary
var(0) = &H73Private Sub MSComm2_OnComm()
Dim s As String
If MSComm2.CommEvent = comEvReceive Then
s = MSComm2.Input
End If
End Sub
事件产生后,input没得到任何东西谢谢
Dim var(1) As Variant
MSComm2.CommPort = 1
MSComm2.PortOpen = True
MSComm2.RThreshold = 1
MSComm2.SThreshold = 1
MSComm2.InputLen = 0
MSComm2.InputMode = comInputModeBinary
var(0) = &H73Private Sub MSComm2_OnComm()
Dim s As String
If MSComm2.CommEvent = comEvReceive Then
s = MSComm2.Input
End If
End Sub
事件产生后,input没得到任何东西谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货