MScomm关于‘8002’无效端口号

Question

Private Sub CmdExit_Click()MSComm1.PortOpen = False
EndEnd SubPrivate Sub CmdReceive_Click()Dim buf$
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
   txtReceive.Text = "Empty"
Else
   txtReceive.Text = buf
End IfEnd SubPrivate Sub CmdSend_Click()MSComm1.Output = Trim(txtSend.Text)End SubPrivate Sub Form_Load()MSComm1.CommPort = 1
MSComm1.PortOpen = TrueEnd Sub
代码如上。编译就出现‘8002’无效端口号，这个是怎么回事情？

Answer 1

1.你的机器没有标号为Com1的端口, 可进入控制面版（设备管理器）查看2.代码部份, 你连最基本的 Settings 都没加Private Sub Form_Load()
   With MSComm1
      .CommPort = 1
      .Settings = "9600,n,8,1"
      .InputLen = 0
      If Not .PortOpen Then .PortOpen = True
   End With
End Sub