Xpos

これは、エミュレーター・ウィンドウ長方形の上方左の角の x 位置です。このプロパティーは、変更と検索の両方が可能です。Xpos は、Long データ型で読み取り/書き込み可能です。ただし、付加した接続がインプレースの組み込みオブジェクトである場合は、このプロパティーは読み取り専用です。以下の例は、このプロパティーを示しています。

Dim  autECLWinObj as Object
Dim  ConnList as Object
Dim  x as Long
Set autECLWinObj = CreateObject("ZIEWin.autECLWinMetrics")
Set ConnList = CreateObject("ZIEWin.autECLConnList")
 
' Initialize the connection
ConnList.Refresh
autECLWinObj.SetConnectionByHandle(ConnList(1).Handle)
 
x = autECLWinObj.Xpos 'get the x position
 
' or...
 
autECLWinObj.Xpos = 6081 'set the x position