我用结构变量和画面窗口做了点击阀门弹出对话框，成功是成功了，但是弹出的对话框不在鼠标点击的位置（第一个点击弹出的对话框在点击位置，但是第二个不在，并且在第一个点击弹出的位置附近出现对话框）我用的是下面的VB程序
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.TagPrefix = "F1."” 定义变量前缀
PIC.TagPrefix = "M1."” 定义变量前缀
PIC.Visible = True
End Sub
问一下高手们是哪出了问题，请解答，最好详解 谢谢
问题补充：
忘记问了，对话框内有阀门号的，请问一下怎么实现点击弹出的对话框内显示的阀门号与所操作的阀门号一致呢，请高手详解。。。
最佳答案
鼠标按下时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
提问者对于答案的评价：
谢谢，可是阀门点击弹出的对话框出现的位置不在鼠标点击位置，希望大侠帮忙 邮箱：mabommn@163.com
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264657.html
微信扫一扫 
支付宝扫一扫 