SCADA DIAView 自定义弹出窗口

1、创建窗口0，并拖拽3个按钮

2、创建窗口1，设置属性“背景”，“大小”

3、创建变量，ButtonNumber 用于标记属于哪个按钮执行的窗口

4、对应的脚本脚本事件如下：

1、窗口0 ==> 按钮“窗口1”==>事件==>左键按下

width=按钮0.Width

 

height=按钮0.Height

 

leftValue=按钮0.Left+width

 

topValue=按钮0.Top+height

 

Var.ButtonNumber=1

 

Call HMICmd.OpenDialogWindow("窗口1",1,true,leftValue,topValue)

2、窗口0 ==> 按钮“窗口2”==>事件==>左键按下

width=按钮1.Width

 

height=按钮1.Height

 

leftValue=按钮1.Left+width

 

topValue=按钮1.Top+height

 

Var.ButtonNumber=2

 

Call HMICmd.OpenDialogWindow("窗口1",1,true,leftValue,topValue)

3、窗口0 ==> 按钮“窗口3”==>事件==>左键按下 

width=按钮2.Width

 

height=按钮2.Height

 

leftValue=按钮2.Left+width

 

topValue=按钮2.Top+height

 

Var.ButtonNumber=3

 

Call HMICmd.OpenDialogWindow("窗口1",1,true,leftValue,topValue)

4、窗口1 ==> 按钮“确定”==>事件==>左键按下  

If Var.ButtonNumber=1 then

 

    MsgBox "执行按钮1需要的动作"

 

    HMICmd.CloseDialogWindow()

 

End If

 

If Var.ButtonNumber=2 then

 

    MsgBox "执行按钮2需要的动作"

 

    HMICmd.CloseDialogWindow()

 

End If

 

If Var.ButtonNumber=3 then

 

    MsgBox "执行按钮3需要的动作"

 

    HMICmd.CloseDialogWindow()

 

End If

5、窗口1 ==> 按钮“关闭”==>事件==>左键按下 

HMICmd.CloseDialogWindow()

5、点击“运行”按钮，查看运行效果