[
‘设置该组数据为后台刷新
MyOPCGroup.IsActive = True 
‘设置该组为激活状态
MyOPCGroup.UpdateRate=1000     
‘设置数据刷新时间为1000
(3) 添加数据项
Dim abItemIDs() As String     
‘项标识符
Dim abClientHandles() As Long 
‘客户端句柄
Dim abServerHandles() As Long
‘服务器端句柄
Dim abErrors() As Long   
Dim I As Long
ItemCount=5
Dim oOPCItem As RSLinxOPCAutomation.OPCItem
For I = 1 To 5
abItemIDs(i) = "[" & txtTopic & "]" & txtItem(i)  ‘将Topic名和标签名赋给项标识符
abClientHandles(i) = i    
‘给客户端句柄赋值
Next i
MyOPCGroup.OPCItems.AddItems ItemCount, abItemIDs, abClientHandles, abServerHandles, abErrors
‘添加数据项操作
(4) 同步数据读写
OPC数据存取有同步方式和异步方式两种。异步读写数据复杂，需要与事件结合使用，与同步相比速度慢但准确性高。同步读写数据简单，直接使用OPCItem的方法即可。
Dim One As OPCItem
Dim Index As Long  
‘Index为标签顺序号
Dim OneRead As String
Dim Xie As String     
Set One = MyOPCGroup.OPCItems(Index)
One.Read OPCCache
OneRead = One.Value  

[本文共有 3 页，当前是第 2 页] <<上一页 下一页>>

]