前面服务器已经连接成功
Dim WithEvents ConnectedGroup As OPCAutomation.OPCGroup
ConnectedOPCServer.OPCGroups.DefaultGroupIsActive = True
ConnectedOPCServer.OPCGroups.DefaultGroupDeadband = 40
ConnectedGroup = ConnectedOPCServer.OPCGroups.Add("组1")
ConnectedGroup.UpdateRate = 400
ConnectedGroup.IsSubscribed = True
‘ 组新建成功
ConnectedGroup.OPCItems.DefaultIsActive = True
Dim ItemServerHandles() As Long
Dim ItemCount As Long = 2
Dim OPCItemIDs(2) As String
Dim ClientHandles(2) As Int32
Dim AddItemErrors() As Long
OPCItemIDs(1) = "Q1"
OPCItemIDs(1) = "Q2"
ClientHandles(1) = 1
ClientHandles(2) = 2
ConnectedGroup.OPCItems.AddItems(ItemCount, OPCItemIDs, ClientHandles, ItemServerHandles, AddItemErrors)
代码如上，运行到增加项时提示，无法将System.Int32[*]转化为System.Int64[]
这不提示很明显吗
Dim ClientHandles(2) As Int32 定义成long或者Int64试试