技术论坛

 博图HMI脚本程序请教

返回主题列表
作者 主题
xkqxwhz
奇侠

经验值:5449
发帖数:1178
精华帖:10
楼主    2019-10-15 20:57:08
主题:博图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

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

您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。