博图advanced关于vb自动弹出画面

        不算特别方便吧,需要传递一个参数.不过不需要一个一个设置它的位置了.有没有工控大牛啊!想跟大佬后面学点东西.

 附全篇详细代码.换行多了点,方便看.

Sub OnClick(ByVal Item)
'提示：
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
'  示例：HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码：
Dim ScreensWidth,ScreensHeigh
ScreensWidth=1920'设置屏幕横向分辨率
ScreensHeigh=1080'纵向分辨率

Dim Name,pic,a,b,c,d,e,f'a=x,b=y,
Dim valve

'一下获取当前对象坐标及对象名
Set valve=HmiRuntime.ActiveScreen.ActiveScreenItem
f=valve.ObjectName
a=valve.Left
b=valve.Top
Name=valve.ObjectName


Select Case Item'传入的参数
Case 1 
    If(a>ScreensWidth/2)Then
        a=a-3-353
    Else
        a=a+25
    End If

    If(b>ScreensHeigh-439)Then
        b=ScreensHeigh-440
    End If
    ShowPopupScreen "DigIn", a, b,hmiToggle,hmiAnimationOff,hmiMedium
    
Case 2
    If(a>ScreensWidth/2)Then
        a=a-3-503
    Else
        a=a+50
    End If

    If(b>ScreensHeigh-454)Then
        b=ScreensHeigh-455
    End If
    ShowPopupScreen "MCC_Motor", a, b,hmiToggle,hmiAnimationOff,hmiMedium

Case 3
    If(a>ScreensWidth/2)Then
        a=a-3-503
    Else
        a=a+50
    End If
    
    If(b>ScreensHeigh-454)Then
        b=ScreensHeigh-455
    End If
    ShowPopupScreen "MCC_Motor_ZhengFanZhuan", a, b,hmiToggle,hmiAnimationOff,hmiMedium
    
Case 4
    If(a>ScreensWidth/2)Then
        a=a-3-503
    Else
        a=a+50
    End If

    If(b>ScreensHeigh-454)Then
        b=ScreensHeigh-455
    End If
    ShowPopupScreen "MCC_MotorVLT", a, b,hmiToggle,hmiAnimationOff,hmiMedium
    
Case 5
    If(a>ScreensWidth/2)Then
        a=a-3-503
    Else
        a=a+50
    End If

    If(b>ScreensHeigh-454)Then
        b=ScreensHeigh-455
    End If
    ShowPopupScreen "Motor", a, b,hmiToggle,hmiAnimationOff,hmiMedium
        
Case 6
    If(a>ScreensWidth/2)Then
        a=a-3-503
    Else
        a=a+50
    End If

    If(b>ScreensHeigh-454)Then
        b=ScreensHeigh-455
    End If
    ShowPopupScreen "MotorVLT", a, b,hmiToggle,hmiAnimationOff,hmiMedium

Case 7
    If(a>ScreensWidth/2)Then
        a=a-3-500
    Else
        a=a+25
    End If

    If(b>ScreensHeigh-450)Then
        b=ScreensHeigh-451
    End If
    ShowPopupScreen "Value", a, b,hmiToggle,hmiAnimationOff,hmiMedium
    

End Select


End Sub