效果動畫演示

 實現步驟

 第一步：分別新建 “視窗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
 

第四步：工程配置