博图advanced关于vb自动弹出画面

不算特别方便吧,需要传递一个参数.不过不需要一个一个设置它的位置了.有没有工控大牛啊!想跟大佬后面学点东西.

附全篇详细代码.换行多了点,方便看.

Sub OnClick(ByVal Item)
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim ScreensWidth,ScreensHeigh
ScreensWidth=1920'设置屏幕横向分辨率
ScreensHeigh=1080'纵向分辨率Dim Name,pic,a,b,c,d,e,f'a=x,b=y,
Dim valve'一下获取当前对象坐标及对象名
Set valve=HmiRuntime.ActiveScreen.ActiveScreenItem
f=valve.ObjectName
a=valve.Left
b=valve.Top
Name=valve.ObjectNameSelect Case Item'传入的参数
Case 1 If(a>ScreensWidth/2)Thena=a-3-353Elsea=a+25End IfIf(b>ScreensHeigh-439)Thenb=ScreensHeigh-440End IfShowPopupScreen "DigIn", a, b,hmiToggle,hmiAnimationOff,hmiMediumCase 2If(a>ScreensWidth/2)Thena=a-3-503Elsea=a+50End IfIf(b>ScreensHeigh-454)Thenb=ScreensHeigh-455End IfShowPopupScreen "MCC_Motor", a, b,hmiToggle,hmiAnimationOff,hmiMediumCase 3If(a>ScreensWidth/2)Thena=a-3-503Elsea=a+50End IfIf(b>ScreensHeigh-454)Thenb=ScreensHeigh-455End IfShowPopupScreen "MCC_Motor_ZhengFanZhuan", a, b,hmiToggle,hmiAnimationOff,hmiMediumCase 4If(a>ScreensWidth/2)Thena=a-3-503Elsea=a+50End IfIf(b>ScreensHeigh-454)Thenb=ScreensHeigh-455End IfShowPopupScreen "MCC_MotorVLT", a, b,hmiToggle,hmiAnimationOff,hmiMediumCase 5If(a>ScreensWidth/2)Thena=a-3-503Elsea=a+50End IfIf(b>ScreensHeigh-454)Thenb=ScreensHeigh-455End IfShowPopupScreen "Motor", a, b,hmiToggle,hmiAnimationOff,hmiMediumCase 6If(a>ScreensWidth/2)Thena=a-3-503Elsea=a+50End IfIf(b>ScreensHeigh-454)Thenb=ScreensHeigh-455End IfShowPopupScreen "MotorVLT", a, b,hmiToggle,hmiAnimationOff,hmiMediumCase 7If(a>ScreensWidth/2)Thena=a-3-500Elsea=a+25End IfIf(b>ScreensHeigh-450)Thenb=ScreensHeigh-451End IfShowPopupScreen "Value", a, b,hmiToggle,hmiAnimationOff,hmiMediumEnd SelectEnd Sub

博图advanced关于vb自动弹出画面相关推荐

西门子博图HMI与倍福进行PLC使用OPC DA服务器进行通讯配置
1.安装OPC DA 服务器 2.配置OPC DA服务器选择相应的PLC的.tpy文件 3.运用后点击保存,退出 4.博图配置 1.双击连接到连接画面 2.配置如图
PLC西门子杯比赛，三部十层电梯博图v15.1程序
PLC西门子杯比赛,三部十层电梯博图v15.1程序,带wincc画面. 西门子杯,西门子初赛程序. ID:6919671539506210工控自动化技师
博图V15仿真时出现“实际在线CPU当前连有一些应用程序。只有关闭它们后才可启动仿真器”的问题，不弹出仿真窗口
在网上找不到相应的解答,来回卸载和安装也没有用,依然出现这样的问题使用的是win7 sp1虚拟机,版本为博图v15 后来找到原因是:虚拟机内部本身我就已经安装了pcs7,可能是因为pcs7和博图v1 ...
西门子——博图V16与PLCSIM Advanced仿真通讯配置（1500系列）
西门子--博图V16与PLCSIM Advanced仿真通讯配置(1500系列) 前言一.查看自己电脑的CPU 二.PLCSIM Advanced软件安装及环境配置 1.软件安装下载 2.环境配置 ...
出西门子S71200项目支持博图V13sp1V14V15.1 S71200HIM仿真恒压供水系统项目
出西门子S71200项目支持博图V13sp1V14V15.1 S71200HIM仿真恒压供水系统项目
博图如何上载wincc程序_WINCC 博途以太网下载方式
本文转载自[微信公众号:机器人及PLC自动化应用,ID:ZS18943047820],经微信公众号授权转载,如需转载与原文作者联系带以太网口的西门子一代精简面板和二代精简面板均支持以太网下载,本章使 ...
TIA Portal 博图博途安装问题汇总
￣ 3￣博图软件安装下载教程(点我)￣ε ￣ TIA Portal 安装问题汇总 -操作系统需要使用基于美国联邦信息处理标准(FIPS)的加密算法.该软件使用的某些Microsoft标准算法不符合该标 ...
博图程序需要手动同步_西门子S7-200SMART PLC 常见问题
西门子S7-200SMART PLC 常见问题问:西门子S7-200SMART PLC编程软件输入触点为啥输入错误,一直是问号,是哪里错误了? 答:输入触点完之后,按一下回车键,或者点击空白处即可. ...
浏览器弹出窗口自动弹出F12调试工具
阅文时长 | 0.1分钟字数统计 | 174.4字符主要内容 | 1.引言&背景 2.解决方案 3.声明与参考资料『浏览器弹出窗口自动弹出F12调试工具』编写人 | SCscHero ...
wincc的画面怎么用博图打开_如何把西门子精智面板画面直接转换成博图WINCC RT ADV画面...
JZGKCHINA工控技术分享平台在工程中我们会遇到客户要求既要用HMI又要用上位机,这样就要写两套程序,工作量相当大.那么有没有什么方法只写HMI程序,然后把HMI程序复制到上位机运行即可呢? 西 ...

博图advanced关于vb自动弹出画面

博图advanced关于vb自动弹出画面相关推荐

最新文章

热门文章