|
ED
|
read only
|
RT
|
not used
|
Returns the position of the right picture border in pixel. The value defines the distance from the left border of the screen.
'*** The current picture is moved by 10 pixel/side (top,bottom,left,right) Public Sub LeftClickUp_Picture_Move(obElem As Element) Dim obPicture As DynPicture '*** Get picture-object Set obPicture = obElem.Parent.Parent If (obPicture Is Nothing) Then MsgBox "Error: Picture-object is invalid..." Exit Sub End If '*** De/-activate the current picture obPicture.Move obPicture.Left + 10, obPicture.Top + 10, obPicture.Width, obPicture.Height obElem.LeftClickUp End Sub