序言

在設計wincc組態畫面的時候，為了減少畫面窗口及減少主畫面的擁擠，設計的時候我們常常采用彈出畫面（彈窗）的方式。因彈窗如果不定位，那么就會造成彈窗畫面的不固定性，從而造成操作的不方便。

解決方案

彈窗方式一的特點: 窗體大小可控，彈窗的位置在按鈕旁邊（跟隨鼠標）。

彈窗方式二的特點：彈窗隨意。

實現方式：

（1）建立變量

（2）建立畫面窗口

（3）建立VBS腳本

（4）以前的腳本

Dim open

Dim username

Set username = HMIRuntime.Tags("@CurrentUserName")

username.Read

If username.Value="admin" Then

Set open =Screens("畫面窗口1")

open.ScreenName="TEST001_水泵控制"

open.TagPrefix ="P101A"

open.Visible=True

open.left =495

open.top=425

Else

Msgbox "當前登錄用戶無操作權限",64,"用戶登錄"

End If

===當前的腳本====

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim open

Dim username

Set username = HMIRuntime.Tags("@CurrentUserName")

username.Read

If username.Value="Admin" Then

Set open = ScreenItems("畫面窗口1")

open.ScreenName="TEST001_水泵控制"

open.TagPrefix ="P101A"

open.Visible=True

open.CaptionText="P101A界面"

OPEN.WindowCloseEnabled=True

If((x+open.Width) > item.Parent.Width)Then '判斷鼠標x坐標是否超限

open.Left = item.Parent.Width - open.Width

Else

open.Left = x

End If

If((y+open.Height) > item.Parent.Height)Then '判斷鼠標y坐標是否超限

open.top = item.Parent.Height - open.Height

Else

open.top = y

End If

open.width =310

open.height=210

Else

Msgbox "當前登錄用戶無操作權限",64,"用戶登錄"

End If

End Sub