博图HMI脚本程序请教

Sub MenuSelect()
Dim ScreenNo

If (SmartTags("FAST\MainMenu\ScreenNo") = 100) Or  (SmartTags("FAST\MainMenu\ScreenNo") = 200) Or  (SmartTags("FAST\MainMenu\ScreenNo") = 300) Then
 If (SmartTags("FAST\MainMenu\ScreenNo_Last_user_1") <> 0) And  (SmartTags("FAST\MainMenu\ScreenNo_Last_user_1") <> 1) Then
  SetTag ScreenNo, SmartTags("FAST\MainMenu\ScreenNo_Last_user_1")
    SetTag "FAST\MainMenu\ScreenNo_Last_user_1", SmartTags("FAST\MainMenu\ScreenNo_Last_user_0")
    SetTag "FAST\MainMenu\ScreenNo_Last_user_0", ScreenNo
   Else
       SetTag ScreenNo, SmartTags("FAST\MainMenu\ScreenNo_Last_user_0")
 End If
Else  'FROM ANY SCREEN
 If SmartTags("FAST\MainMenu\ScreenNo") <> SmartTags("FAST\MainMenu\ScreenNo_Last_user_0") Then
    SetTag "FAST\MainMenu\ScreenNo_Last_user_1", SmartTags("FAST\MainMenu\ScreenNo_Last_user_0")
    SetTag "FAST\MainMenu\ScreenNo_Last_user_0", SmartTags("FAST\MainMenu\ScreenNo")
   End If
 If (SmartTags("FAST\MainMenu\Menue_Last") = 100) Or  (SmartTags("FAST\MainMenu\Menue_Last") = 200) Or  (SmartTags("FAST\MainMenu\Menue_Last") = 300) Then
     SetTag ScreenNo, SmartTags("FAST\MainMenu\Menue_Last")
 Else
  SetTag ScreenNo, 100
 End If

  
End If
  
ChangeScreen ScreenNo, 0
End Sub

请问各位大侠,标红的语句是什么意思呢?

下面的程序代码使用 SetTag 函数将 gs_tag_bit 变量的值设置为 TRUE，并将返回值保存到 ok 变量中。

ok = SetTag("gs_tag_bit", TRUE);

以下示例显示了单击用户自定义菜单项时执行的脚本“ChangeScreen”。使用“数据”(Data) 字段将画面名称传送到脚本。 

Sub ChangeScreen (ByVal Item)

    Dim objScreen, strScreenName

    ' "UserData" contains the screen name specified

    ' in editor menus and toolbars. 

    strScreenName = Item.Userdata

    HMIRuntime.BaseScreenName = strScreenName

End Sub

不知道功能一样不

ChangeScreen这个函数没找到，你看看VB函数里面是不是自己编写的

你用的是vbs，这个不支持set，get指令，变量赋值直接用

hmiruntime.tags("ScreenNo").write 0

zhangli0 版请问一下,VBS不支持SET这个指令吗?我这个HMI的程序是从WinCC flexible 版本移植过来的,在博徒中编译也没错误,难道转成C脚本了?

博图和WINCC V7脚本还是差很多

详细的脚本含义可以参考：

SIMATIC WinCC WinCC Professional V14 SP1 - 编程参考

感谢您的回复,这个资料确实很好,谢谢!

字面理解就是改变屏幕编号，根据条件调用不同的画面吧