mscomm控件使用(非常简单)oncomm事件不执行
我写的代码里面 ONComm事件怎么也不执行
不知道为什么
Private Sub Command2_Click()
i = i + 1
MSComm1.Output = "!0R" & Chr$(13)
Dim A As String
Delay_Time (100)
A = MSComm1.Input
Debug.Print Trim(A)
End Sub
我做了一个按钮,可以看到返回值
可是没有执行ONComm
下面是我的mscomm的属性设置
Private Sub Mscom_Initial()
MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeText
MSComm1.DTREnable = True
MSComm1.Handshaking = Handshaking
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
Exit Sub
End Sub