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

'*************弹出画面控制*********************

'先隐藏窗口

'为画面分配名称

'为窗口分配标题

'为窗口分配名称

'分配变量前缀

'计算窗口位置，如果窗口位置超出父级画面位置则重新定位

'Dim Except_Obj1

'Dim Except_Obj2

'Set Except_Obj1 = HMIRuntime.Screens("Graphcs").Items("")

Dim Win

Set Win = ScreenItems("Window1")

Win.Visible = vbFalse

Win.PictureName = "Valve1"

Win.CaptionText = "1#送水泵进口阀"

Win.TagPrefix = "V4001."

Win.Visible = vbTrue

Win.Left = x - Win.Width/2

Win.Top = y - Win.Height - 20 

If Win.Left < 0 Then Win.Left =10

If Win.Top < 0 Then Win.Top = 10

If (Win.Left + Win.Width) > Win.Parent.Width Then Win.Left = Win.Parent.Width -  Win.Width - 10

If (Win.Top + Win.Height) > Win.Parent.Height  Then Win.Top = Win.Parent.Height - Win.Height - 10

End Sub