维纶触摸屏程序实际项目，威纶通界面UI，复制可用，威伦通触摸EB Pro6.00以上版本均可用，ip和ie系列4.3寸7寸10寸均复制可用电子档

项目里用维纶通触摸屏做HMI开发，最头疼的就是不同尺寸屏幕适配和控件复用。最近在工业现场折腾了几个通宵，终于摸出一套靠谱的UI复用方案。直接上干货——先看这段屏幕尺寸自适应宏：

Sub Screen_OnLoad() Dim baseWidth = 800 '基准分辨率宽度 Dim baseHeight = 480 '基准分辨率高度 ratioX = HMI.ScreenWidth / baseWidth ratioY = HMI.ScreenHeight / baseHeight For Each obj In Screen.Objects obj.Left = obj.OriginalLeft * ratioX obj.Top = obj.OriginalTop * ratioY obj.Width = obj.OriginalWidth * ratioX obj.Height = obj.OriginalHeight * ratioY Next End Sub

这个骚操作的关键在于每个控件都要预先保存OriginalXXX属性值。实测在EB Pro里，用VBScript遍历所有控件自动缩放，7寸切到10寸屏不用重新排布，特别是那些复杂的阀门动画组态，缩放后位置完全对得上。

遇到多台设备IP不同的情况，推荐用宏处理IP切换：

Sub SetPLC_IP(ip) SmartTags("PLC_IP") = ip If SmartTags("ConnectionStatus") = 0 Then PLC.Connect End If End Sub

配合前端做个IP地址选择菜单，现场换设备直接点选就行，不用进系统菜单折腾。注意SmartTags要提前绑定好对应的PLC驱动参数。

维纶触摸屏程序实际项目，威纶通界面UI，复制可用，威伦通触摸EB Pro6.00以上版本均可用，ip和ie系列4.3寸7寸10寸均复制可用电子档

元件库复用才是真生产力工具。建议把常用控件打包成自定义元件：

1. 在元件属性里勾选"允许动态属性绑定"
2. 导出成.ectl文件
3. 新项目直接拖进来用

比如这个报警指示灯模板：

<CustomComponent> <Property Name="AlarmTag" Type="Tag" Bindable="True"/> <Script> Sub Update() If AlarmTag.Value Then SetFillColor RGB(255,0,0) Else SetFillColor RGB(0,255,0) End If End Sub </Script> </CustomComponent>

跨项目拖拽使用时，只需要重新绑定下PLC标签地址，动画效果和交互逻辑都不用重写。实测在IP系列和IE系列触摸屏上通用，4.3寸屏的触控区域自动适配得很稳。

最后说个坑：用高版本EB Pro（比如V6.05）做完工程，如果要给低版本设备用，记得导出时选"兼容模式"。上周就因为这个，现场10寸屏死活不认工程文件，差点被甲方吊起来打。