我使用了如下的VB程序
鼠标按下时VBS脚本：
Sub MouseDown(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
Dim PIC
Set PIC = ScreenItems("画面窗口1")””””选择画面窗口
PIC.Visible = False
PIC.Left = x +10
PIC.Top = Y ””””使窗口移动到鼠标位置
PIC.captiontext="阀门号"
PIC.TagPrefix = "F1."”””” 定义变量前缀
PIC.TagPrefix = "M1."”””” 定义变量前缀
End Sub
鼠标释放时VBS脚本：
Sub MouseDown(ByVal Item, ByVal Button, ByVal Shift, ByVal x, ByVal y)
ScreenItems("画面窗口1").Visible = True
End Sub
但是弹出的对话框的位置不在鼠标点击的位置，而且差别的距离还挺大，不知道是什么原因，如有大侠明白，希望帮小弟解决一下，谢谢！
问题补充：
你用WINCC库里的阀门、电机的图形试过吗？我是用的库里的图形图标做的。。。
最佳答案
库里的图形图标的属性中写脚本没问题，照样能运行。
PIC.Left = item.Left+10
PIC.Top = item.Top
提问者对于答案的评价：
谢谢，问题解决了，看来还得进一步学习VB啊
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264653.html
微信扫一扫 
支付宝扫一扫 