点击弹出的对话框位置问题
刘玉蓉
发布于2014-10-17 16:52
91
0
标签：
我用结构变量和画面窗口做了点击阀门弹出对话框，成功是成功了，但是弹出的对话框不在鼠标点击的位置（个点击弹出的对话框在点击位置，但是第二个不在，并且在个点击弹出的位置附近出现对话框）我用的是下面的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
