863
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
With MSComm1
.CommPort = 3
.DTREnable = True
.InputMode = 0
.Settings = "9600,n,8,1"
.PortOpen = True
.InBufferCount = 0
.RThreshold = 3
.InputLen = 3
End With
End Sub
Private Sub MSComm1_OnComm()
Dim buf As String
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvReceive
buf = MSComm1.Input
Case comEvSend
End Select
Text1.Text = Text1.Text & buf
End Sub
Private Sub MSComm1_OnComm()
Dim buf As String
If MSComm1.InBufferCount > 0 Then
Text1.Text = Text1.Text & "1"
End If
End Sub