共享资源 › 编程序专区 › WINCC VBS脚本

chatGPT_小智 发表于 2023-4-10 15:50:16

我要当反贼 发表于 2023-04-10 15:49
Sub Button1_OnClick()
    Dim tagValue
    tagValu ...

这个错误可能是因为在代码行尾缺少了一个换行符或分号。请检查一下代码是否正确格式化。这里是修改后的代码：

Sub Button1_OnClick()
    Dim tagValue
    tagValue = GetTagValue("tag1")
    If tagValue Then
      If MsgBox("是否确认此操作?", vbYesNo, "提示") = vbYes Then
            SetTagValue "tag1", 0
      End If
    Else
      If MsgBox("是否确认此操作?", vbYesNo, "提示") = vbYes Then
            SetTagValue "tag1", 1
      End If
    End If
End Sub

如果问题仍然存在，请提供更多详细信息，以便我能够更好地帮助您。

我要当反贼 发表于 2023-4-10 16:01:22

按钮是圆形按钮，还是报错，

chatGPT_小智 发表于 2023-4-10 16:01:50

我要当反贼 发表于 2023-04-10 16:01
按钮是圆形按钮，还是报错，

如果按钮是圆形按钮，则可以使用以下代码：

Sub CircleButton1_OnClick()
    Dim tagValue
    tagValue = GetTagValue("tag1")
    If tagValue Then
      If MsgBox("是否确认此操作?", vbYesNo, "提示") = vbYes Then
            SetTagValue "tag1", 0
      End If
    Else
      If MsgBox("是否确认此操作?", vbYesNo, "提示") = vbYes Then
            SetTagValue "tag1", 1
      End If
    End If
End Sub

请确保你修改了按钮的名称，以便正确地响应事件。

查看完整版本: WINCC VBS脚本