发表于:2005-10-01 20:16:00
5楼
Sub Connect(strProgID As String, Optional strNode As String)
If objServer Is Nothing Then
' 建立一个OPC服务器对象
Set objServer = New OPCServer
End If
If objServer.ServerState = OPCDisconnected Then
' 连接OPC服务器
objServer.Connect strProgID, strNode
End If
If objGroups Is Nothing Then
' 建立一个OPC组集合
Set objGroups = objServer.OPCGroups
End If
If objTestGrp Is Nothing Then
' 添加一个OPC组
Set objTestGrp = objGroups.Add("TestGrp")
End If
End Sub