无法获取comEvReceive事件？？
'打开GSM Modem端口
Private Sub OpenGSMModem()
With MSComm1
.CommPort = 4
.Settings = "9600,N,8,1"
.InputLen = 0
.RThreshold = 1
.SThreshold = 0
.PortOpen = True
End With
End Sub
Private Sub Command1_Click()
SendEngSMS Text1.Text, Text2.Text
End Sub
Private Sub SendEngSMS(strTmpSMS As String, strTmpPhone As String)
MSComm1.Output = "AT+CMGF=1" + vbCr
MSComm1.Output = "AT+CMGS=" & Chr(34) & "+86" & strTmpPhone & Chr(34) + vbCr
MSComm1.Output = strTmpSMS & Chr$(26)
End Sub
'检测GSM Modem的事件
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
MsgBox "comEvReceive"
Case comEvSend
MsgBox "comEvSend"
End Select
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－
代码如上，为什么当GSM Modem收到信息，无法激发comEvReceive事件？？这是什么问题！？
问题点数：20、回复次数：0Top
