点击弹出的对话框的位置不正确
刘玉蓉
发布于2014-10-17 16:52
71
0
标签：
使用了如下的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
