不算特别方便吧,需要传递一个参数.不过不需要一个一个设置它的位置了.有没有工控大牛啊!想跟大佬后面学点东西.
附全篇详细代码.换行多了点,方便看.
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