Vb6 visual basic 6.0通信端口代码错误

实际上，我正试图从

port1

获取数据，但生成了错误

无效端口号

代码是：

Private Sub Command1_Click()
    MsgBox ("The port is open " & MSComm1.PortOpen)
    If (MSComm1.PortOpen = False) Then
    MSComm1.PortOpen = True
    End If
    Command1.Enabled = False
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
    If (MSComm1.PortOpen = True) Then
    MSComm1.PortOpen = False
    End If
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

Private Sub Form_Load()
    With MSComm1
    .CommPort = 1
    .RThreshold = 1
    .RTSEnable = True
    .Settings = "9600,N,8,1"
    .InputLen = 127
    .SThreshold = 1
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If (MSComm1.PortOpen = True) Then
    MSComm1.PortOpen = False
    End If
End Sub

Private Sub MSComm1_OnComm()
    Dim Buffer As String

    Select Case MSComm1.CommEvent
    Case comEvReceive
    'Text1.Text = " "
    Buffer = MSComm1.Input
    Text1.Text = Text1.Text & Buffer
    End Select
End Sub

---

尝试不同的COM端口。1到16之间的数字是可以接受的

' Open the serial port
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

“CommPort属性设置要打开的串行端口。假设调制解调器连接到COM2，上述示例将值设置为2（COM2）并连接到调制解调器。您可以将CommPort属性值设置为1到16之间的任何数字（默认值为1）。但是，如果将此值设置为运行应用程序的系统不存在的COM端口，则会生成错误。“

---

酱汁：

看看我在以下答案中发布的代码：

运行该代码将为您提供可用com端口的列表

---

在代码中使用它，让代码从该列表中选择com端口

单击“调试”按钮时会得到什么？可能系统中没有com端口1。请检查您的系统设置。@Csharp无效的端口号如果我尝试了，我有com1端口，但仍然发现错误，请请求您在这个问题上帮助我。为什么我要写“mscomm1.portopen=true”先生，我检查了，但没有找到以下错误方法或数据成员（高位字是checkport-in）Select Case CheckPort（intIndex）“抱歉，我在发布代码时似乎忘记了一些空格。我现在编辑它，使它显示为一个大代码块。您是否也复制了CheckPort功能？先生，我仍然有一个8002的错误，这就是为什么我只得到两个选项-未使用和正在使用，选择其中任何一个都不行！[运行程序后的图像][1]如果您需要任何帮助，请请求您提供帮助。检查comm1.portopen=true后，会出现错误