恭喜,你发布的帖子
发布于 2022-04-18 07:11:43
6楼
转 黄河远上
建好结构变量后
在鼠标左键里,选择VBS动作:
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim PIC
Set PIC = ScreenItems("画面窗口1")'选择画面窗口
PIC.Visible = False
PIC.Left = x +10
PIC.Top = Y '使窗口移动到鼠标位置
PIC.TagPrefix = "TAG_6."' 定义变量前缀
PIC.Visible = True
请填写推广理由:
分享
只看
楼主