序言

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

解決方案

彈窗方式一的特點(diǎn): 窗體大小可控，彈窗的位置在按鈕旁邊（跟隨鼠標(biāo)）。

彈窗方式二的特點(diǎn)：彈窗隨意。

實(shí)現(xiàn)方式：

（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 "當(dāng)前登錄用戶無操作權(quán)限",64,"用戶登錄"

End If

===當(dāng)前的腳本====

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 '判斷鼠標(biāo)x坐標(biāo)是否超限

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

Else

open.Left = x

End If

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

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

Else

open.top = y

End If

open.width =310

open.height=210

Else

Msgbox "當(dāng)前登錄用戶無操作權(quán)限",64,"用戶登錄"

End If

End Sub