4、码段 '枚举OPC服务器列表 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try GlobalOPCServer= New OPCAutomation.OPCServerClass() Dim ServerList As Object =GlobalOPCServer.GetOPCServers
5、 For index As Short =LBound(ServerList) To UBound(ServerList) '加入控件列表中,注意这里使用LBound和UBound cbbServerList.Items.Add(ServerList(index)) Next If cbbServerList.Items.Count>0 Then cbbServerList.SelectedIndex=0
6、 End If ResetControlStatus() '设置控件状态 GlobalOPCServer= Nothing Catch Ex As Exception MessageBox.Show("ListOPCserversfailed:" +Ex.Message, "OPCSample",MessageBoxButtons.OK) End TryEnd Sub(三) :连接OPC服务器自动化接口中连接到服务器是使用connect
7、方法PublicOverridableSub Connect(ByVal ProgID As String, OptionalByVal Node As Object =Nothing)ProgID指服务器的ProgID,Node代表网络节点,如果是本机则放空即可。连接到服务器后,以下属性需要特别注意:OPCServer.StartTime:服务器的启动时间OPCServer.CurrentTime:服务器的当前时间,各个客户端可以通过这个属性值完成一些同步的操作OPCGroups.DefaultGroupIsActive:以后添加的