西门子wincc用VB做按钮二次确认,

2024-11-22 17:11:57
推荐回答(1个)
回答1:

Dim obj

Set obj = HMIRuntime.Tags("变量")
obj.read

If obj.Value Then
If MsgBox("确定要运行后续步?",vbYesNo,"二次确认") =6 Then
obj.read
obj.Value = 0
obj.Write
End If

Else

End If
End Sub