发布于 2012-06-04 07:49:26
1楼
Dim a
a=HMIRuntime.Tags("KV101").Read
If a Then
If msgbox("真的要停止KV101吗?",65604,"操作提示")=6 Then
HMIRuntime.Tags("KV101").Write 0
End if
Else
If msgbox("真的要启动KV101吗?",65604,"操作提示")=6 Then
HMIRuntime.Tags("KV101").Write 1
End if
End if