TIA Größe eines Objektes per VBS skalieren, jedoch ausgehend von einem anderen Fixpunkt

M

mallepalle83

Level-2
Beiträge
21
Reaktionspunkte
1
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo zusammen,

ich stehe vor einem kleinem Problem und würde gerne einmal wissen, ob es hierfür überhaupt eine Lösung gibt.
Ich habe ein kleines Script, welches die Objektgroesse eines Rechteckes dynamisch in der Breite anpasst.

Dies funktioniert auch soweit, jedoch ist das Problem, dass sich die Größe des Objektes immer vom Punkt oben/links aus verändern lässt.
Ich möchte jedoch das sich das Objekt nach links hin ausdehnt. Kennt jemand hierfür eine Lösung?

objekt.jpg

Code: 
' Interne Variable definieren
Dim OjectRectangle
Dim PlcWidth
Dim PxFactor

' Objekteigenschaften zuweisen
Set OjectRectangle = HmiRuntime.Screens("010_WS_Uebersicht").ScreenItems("Rectangle_FIFO_0")
Set PlcWidth = SmartTags("FIFO_W01_FIFO_WS_DATA{0}.Visu.iLength_mm")

' 1024 px = 20.000 mm --> 1 px 19,53 mm (ca. 20 mm)
PxFactor = 20000 / 1024

' Dem Objekt die Variablenwerte vorgeben
OjectRectangle.Width = Round(PlcWidth / PxFactor,0)

Mit freundlichen Grüßen,
malle
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo Harald,

an diese Idee hatte ich auch schon gedacht. Leider bewegt sich das Objekt aktuell schon durch eine Variable von links nach rechts.
Diese Variablen bei der Größenänderung dann noch mit einem neuen Wert manipulieren, darauf wollte ich eigentlich verzichten ^^

mfg
 
Zurück
Oben