Question

我有一些计算机使用调制解调器而其他计算机没有使用相同的数据库。他们需要确定是否安装了调制解调器。我发现KHaled El-Menshawy在互联网上创建的代码有可能完全符合我的要求，但是我得到了“需要对象”的错误。我认为这是一个简单的修复，但我不知道应该如何声明这个对象。任何人都可以找出丢失的代码吗？这是他的代码：

Public Function CheckModem()
On Error GoTo Errr
If ProgBar.Value = 100 Then
   ProgBar.Value = 0
End If
Port = 1
PortinG:
MSComm1.CommPort = Port
MSComm1.PortOpen = True
ProgBar.Value = ProgBar.Value + 20
Label1.Caption = ProgBar.Value & "%"
Form1.MSComm1.Settings = "9600,N,8,1"
      MSComm1.Output = "AT" + Chr$(13)
      X = 1

      Do: DoEvents
          X = X + 1
          If X = 1000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 2000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 3000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 4000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 5000 Then MSComm1.Output = "AT" + Chr$(13)
          If X = 6000 Then MSComm1.Output = "AT" + Chr$(13)

          If X = 7000 Then
             MSComm1.PortOpen = False
             Port = Port + 1
             GoTo PortinG:

             If MSComm1.CommPort >= 6 Then
Errr:
 MsgBox "Can't Find Modem"
 GoTo done
 End If
 End If

 Loop Until MSComm1.InBufferCount >= 2

 instring = MSComm1.Input
 MSComm1.PortOpen = False
 ProgBar.Value = 100
 Label1.Caption = ProgBar.Value & "%"
 Text1.Text = "com" & Port 'MSComm1.CommPort & instring
 MsgBox "Modem found On Com" & Port

done:
End Function

Answer 1

MsComm1，如果您只是从代码中复制和粘贴，则看起来像是MsComm control object。您必须将其作为附加控件添加到表单中，然后才能访问其属性。

我建议避免复制和粘贴您不理解的代码，尝试了解它的作用和原因。或者，this link（来自this question）提供了完全不同的方法，无需将控件添加到表单中。

检查调制解调器

1 个答案: