VBS 实现自动播放窗口功能

效果动画演示

 

 实现步骤

 第一步：分别新建 “窗口1”、"窗口2"、“窗口3” 用于切换的窗口

第二步：创建变量

第三步：再创建一个公共窗口 “autorun” 

注意：这个是关键，主要用来做画面切换的窗口

 

Dim isAutoRun
isAutoRun = 复选框0.IsChecked
If isAutoRun=True then
    Var.是否自动播放=True
    Var.自动播放计时器=Var.自动播放计时器+1
End If
If isAutoRun=False then
    Var.是否自动播放=False
    Var.自动播放计时器=0
End If

If Var.是否自动播放=True then
    autoRunIndex=Var.自动播放计时器
    Select case autoRunIndex
    case 1
        HMICmd.OpenWindowAndCloseOther("窗口2,autorun")
    case 2
        HMICmd.OpenWindowAndCloseOther("窗口3,autorun")
    case 3
        HMICmd.OpenWindowAndCloseOther("窗口1,autorun")
    case 4
        Var.自动播放计时器=0
    End Select
End If

第四步：工程配置