我想实现的功能，点击电机弹窗跟随鼠标XY位置，但是发现直接点击电机弹出来的窗口的位置差很远，请问是不是只能按钮才可以做，下面贴的两张图是鼠标按下时窗口弹出的情况
最佳答案
VBS脚本函数里面的x，y就是鼠标点击的位置坐标
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
需要考虑点击屏幕右侧或者下侧，弹窗会不会超出屏幕的问题：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
If x>1400 Then
x=x-600
End If
If y>500 Then
y=y-500
End If
Dim picM
Set picM=ScreenItems("电机弹窗")
picM.Left=x+40''左边距离
picM.Top=y+40''顶部距离
picM.Visible=1''显示窗口
提问者对于答案的评价：
谢谢，但是在Wincc图库调出来的水泵我弄不出来，我现在的办法是做一个透明按钮放到水泵上面实现的，想知道图库调出来的水泵为什么弄不了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc314838.html
微信扫一扫 
支付宝扫一扫