实例化对象
Dim WithEvents AnOPCServer As OPCAutomation.OPCServer
Dim WithEvents ConnectedOPCServer As OPCAutomation.OPCServer
Dim WithEvents ConnectedGroup As OPCAutomation.OPCGroup
连接OPC SERVER
ConnectedOPCServer = New OPCAutomation.OPCServer
ConnectedOPCServer.Connect(OPCServerName(String), OPCNodeName(Object))
OPCServerName-OPC Server名称
OPCNodeName-站点名(一般为计算机名,本地为Local)
断开OPC SERVER的连接
ConnectedOPCServer.Disconnect()
ConnectedOPCServer = Nothing
连接OPC Group
ConnectedOPCServer.OPCGroups.DefaultGroupIsActive = (Boolean)
ConnectedOPCServer.OPCGroups.DefaultGroupDeadband = (Single)
ConnectedGroup = ConnectedOPCServer.OPCGroups.Add(OPCGroupName(Object))
GroupName-组名称,该组是访问OPC Server时临时建立的数据组,因此名称任意。
ConnectedGroup.UpdateRate = (Single)
ConnectedGroup.IsSubscribed = (Boolean)
断开OPC Group
ConnectedOPCServer.OPCGro