iFix下的一种画面切换方法
在工业生产线上，一个大的生产系统往往由若干个子系统构成。其相应的监控画面也应该随之分成若干个画面组。这里就产生了一个问题，就是如何处理从一个子系统切换到另一个子系统时画面的切换，在一个子系统内由一个工艺画面切换到另一个工艺画面的问题。
一、画面构成
我们把屏幕分为四个部分：
⑴顶部，由标题和工艺功能画面切换按钮组成。标题可随工艺画面变化而变化，反映画面内容；工艺功能画面切换按钮用于切换子系统内不同的功能画面。绿色按钮代表工艺画面部分当前显示画面和该按钮一致，且禁止操作；灰色按钮代表工艺画面部分可以切换到该按钮指示的工艺画面。按钮上的标识为工艺小系统名；称或功能名称，按钮的数量和子系统有关。
该部分根据具体需要可以增加按钮和其它显示内容。
该部分一般不会被切换。
⑵左侧含子系统切换按钮。也可以增加具体工程要求的其它按钮和数据、状态显示内容。工艺画面所属系统对应操作按钮颜色为绿色，且不能操作。其余
系统所对应按钮为灰色，可操作。按钮标识为子系统名称。
该部分一般不会被切换。
⑶底部一般是公共报警或子系统报警
该部分可固定不切换，也可根据子系统的变化而切换。
⑷中部这一部分是设备监控的主要部分。这是设备状态、过程数据显示及设备操作的区域。随子系统和工艺功能显示要求而切换。各子系统的工艺功能画面数量不等。
二、系统规划
2.1、子系统的划分
2.2、各子系统工艺画面、功能画面的内容确定
以上两项列出表格。
2.3、切换方法的规划设计
2.3.1、画面名称的构成
画面名称按下述格式构成：
工艺名称（功能名称）_子系统编号_工艺功能编号.grf
4汉字 1位数字1位数字
这样处理，便于系统的动画表示和工艺功能画面的动画表示。
2.3.2、辅助全局变量
其中： SYS_No—---子系统编号，整形数；
GY_No------工艺单元、功能画面编号，整形数；
Pic_Nm0----在显示工艺、功能画面名称，字符串；
Pic_Nm1----待显示工艺、功能画面名称，字符串；
2.4、显示及切换规则
2.4.1、例：按钮“系统1”背景色为绿色，且禁止操作时，说明工艺、功能区显示的是1#子系统的设备运行情况。依此类推。
2.4.2、例：例：按钮“系统1”背景色为绿色，且禁止操作；顶部按钮“1”背
景色为绿色，且禁止操作时，说明工艺、功能区显示的是1#子系统的1#设备组设备运行情况。依此类推。子系统不同，顶部显示的按钮数量多少不等。按钮显示与否，和子系统相关。
2.4.3、例：1#子系统有10个画面，2#子系统有6个画面。如果当前显示的是1#子系统10号画面，按“系统4”按钮时，画面切换到4#子系统1#画面。其余相同。
三、相关脚本
3.1、顶部画面脚本
画面全局变量
Dim SYS_No As String
Dim HM_NM0 As String
Dim HM_NM1 As String
1#按钮脚本
Private Sub GY_BT1_Click()
SYS_No = user.SYS_No.CurrentValue
HM_NM0 = user.Pic_Nm0.CurrentValue
HM_NM1 = "GY_" + Format(SYS_No) + "_" + Format(1) + ".grf"
ReplacePicture HM_NM1, HM_NM0
End Sub
10#按钮脚本
Private Sub GY_BT10_Click()
SYS_No = user.SYS_No.CurrentValue
HM_NM0 = user.Pic_Nm0.CurrentValue
HM_NM1 = "GY_" + Format(SYS_No) + "_" + Format(10) + ".grf"
ReplacePicture HM_NM1, HM_NM0
End Sub
其余类同。
3.2、左侧画面脚本
画面全局变量
Dim HM_Nm0 As String
Dim HM_Nm1 As String
Dim HM_No As String
1#子系统按钮脚本
Private Sub SYS_BT1_Click()
HM_Nm0 = user.Pic_Nm0.CurrentValue
HM_No = Format(user.GY_No.CurrentValue)
HM_Nm1 = "GY_" + Format(1) + "_" + HM_No + ".grf" ReplacePicture HM_Nm1, HM_Nm0
End Sub
2#子系统按钮脚本
Private Sub SYS_BT2_Click()
HM_Nm0 = user.Pic_Nm0.CurrentValue
HM_No = Format(user.GY_No.CurrentValue)
If user.GY_No.CurrentValue > 6 Then HM_No = "1" HM_Nm1 = "GY_" + Format(2) + "_" + HM_No + ".grf" ReplacePicture HM_Nm1, HM_Nm0
End Sub
3#子系统按钮脚本
Private Sub SYS_BT3_Click()
HM_Nm0 = user.Pic_Nm0.CurrentValue
HM_No = Format(user.GY_No.CurrentValue)
If user.GY_No.CurrentValue > 7 Then HM_No = "1" HM_Nm1 = "GY_" + Format(3) + "_" + HM_No + ".grf" ReplacePicture HM_Nm1, HM_Nm0
End Sub
4#子系统按钮脚本
Private Sub SYS_BT4_Click()
HM_Nm0 = user.Pic_Nm0.CurrentValue
HM_No = Format(user.GY_No.CurrentValue)
If user.GY_No.CurrentValue > 8 Then HM_No = "1" HM_Nm1 = "GY_" + Format(4) + "_" + HM_No + ".grf" ReplacePicture HM_Nm1, HM_Nm0
