Sub OnClick(ByVal Item) On Error GoTo ErrorHandler ' 获取当前窗口的句柄 Dim hWnd hWnd = HMIRuntime.Tags("ScreenName").Read ' 检查窗口句柄是否有效 If hWnd = "" Then MsgBox "无法获取窗口句柄!" Exit Sub End If ' 关闭窗口 HMIRuntime.
)AsLong PrivateServerHandles()AsLong PrivateErrors()AsLong PrivateSNameAsString'服务器名称 PrivateItemIDs()AsString PrivateSNodeAsString'计算机名或者网址 PrivateItemAnzAsLong Dimcell(2)AsVariant SubConnect(ServerName,NodeName)'连接子函数 OnErrorGoToErrorHandler
‘ 发生错误则转到 ErrorHandler ‘--- 可以自由选择 ClientHandle 和 GroupName Dim i As Integer ‘On Error GoTo HANDLEeRROR For i = 1 To 7 ClientHandles(i) = i ‘ 先配置名柄索引 这将在读取OPC标签值时可要用到 Next i ‘ ClientHandles(1) = 1 GroupName = "MyGroup" ‘--- 从窗口对话...
' 发生错误则转到 ErrorHandler '--- 可以自由选择 ClientHandle 和 GroupName Dim i As Integer ‘On Error GoTo HANDLEeRROR For i = 1 To 7 ClientHandles(i) = i ' 先配置名柄索引 这将在读取 OPC 标签值时可要用到 Next i ' ClientHandles(1) = 1 GroupName = "MyGroup" '--- 从窗口对话...
On Error GoTo ErrorHandler GroupName = "MyGroup" NodeName = Text1.Text结点名,即计算机名 Set MyOPCServer = New OPCServer MyOPCServer.Connect ServerName, NodeName Set MyOPCGroupColl = MyOPCServer.OPCGroups MyOPCGroupColl.DefaultGroupIsActive = True Set MyOPCGroup = MyOPCGroupColl.Add(GroupName)...
' 发生错误则转到 ErrorHandler '--- 可以自由选择 ClientHandle 和 GroupName Dim i As Integer ‘On Error GoTo HANDLEeRROR For i = 1 To 7 ClientHandles(i) = i ' 先配置名柄索引 这将在读取 OPC 标签值时可要用到 Next i ' ClientHandles...
59、IA&DT Service & Support Page 31-34 Dim fxItemValue(10) As Variant 在按钮启动 OPC客户端中添加以下代码 目的:连接到OPC_server,创立组并 添加条目 - 发生错误那么转到 ErrorHandler - 可以自由选择 ClientHandle 和 GroupName Dim i As Integer On Error GoTo HANDLEeRROR For i = 1 To 7 Client...
(10) As Variant 在按钮“启动 OPC 客户端”中添加以下代码 - 目的: 连接到 OPC_server,创建组并添加条目 - 发生错误则转到 ErrorHandler - 可以自由选择 ClientHandle 和 GroupName Dim i As Integer On Error GoTo HANDLEeRROR For i = 1 To 7 ClientHandles(i) = i 先配置名柄索引 这将在读取 OPC...
Sub StartClient() ' On Error GoTo ErrorHandler '--- 可以自由选择ClientHandle和GroupName For ii = 1 To 6 ClientHandles(ii) = ii Next ii GroupName = "MyGroup" '--- 从单元“A1”得到ItemID NodeName = Range("c2").Value ItemIDs(1) = Range("c3...
' On Error GoTo ErrorHandler '--- 可以自由选择ClientHandle和GroupName For ii = 1 To 6 ClientHandles(ii) = ii Next ii GroupName = "MyGroup" '--- 从单元“A1”得到ItemID NodeName = Range("c2").Value ItemIDs(1) = Range("c3").Value ItemIDs(2) = Range("c4").Value ItemIDs(3...