如何利用vbs让弹出窗口弹出位置在按钮附近

西门子的TP精智系列触摸屏，可以使用vb脚本辅助编程，可以实现一些触摸屏本来不能做的事情。

此次说一下如何利用vbs，让弹出画面跟随在按钮附近弹出。

创建一个博途项目，组态一个HMI，我用的TP1200，都可以，随便用，当然，他要支持vbs，不支持就别组态了，比如KTP。

前提条件：创建一个弹出画面，尺寸可以自定义，我使用默认尺寸240x240，后期自己可以根据自己的需要，自行更改合适的尺寸

1. 点击脚本，添加一个新的vb函数

   

2. 声明变量

   

3. 根据触摸屏点击的按钮，自动获取按钮的一些数据

   

4. 通过获取的按钮数据，计算弹出的位置。此处以上居中为例子。例子中的240，就是弹出画面的尺寸数据。根据自己的需要，自行更改数据并计算。

   

5. 最后，让它弹出这个画面。

   

6. 完成视频
   ，时长00:17
   [ ]

注意事项：

1. 弹出画面尺寸错误，弹出的位置也会错误。
2. 如果计算到负值，或者计算到超出画面的值，则会在画面左上角弹出，如果在左上角弹出，基本可以确定计算的x和y的数据是错误的。例如视频中的1按钮和4按钮。