在HTA中獲取窗口位置

Question

我可以在HTA（HTML應用程序）中獲取當前窗口位置嗎？這與VB6中的Me.Top和Me.Left類似，但我想要它獲得像素數。

Answer 1

使用JS，你可以得到最上面的窗口的位置top.screenLeft和top.screenTop。

Answer 2

這是一個很酷的方式來做到這一點。它八九不離十動畫

的VBScript

一下添加到全局變量

Dim IntervalMovingWindow 

然後添加此的OnLoad常規

Sub Window_OnLoad 

    moveTo screen.availWidth/2-200 , screen.availHeight/2-100 

    IntervalMovingWindow= Setinterval ("MoveTheWindow",100) 

End Sub 

然後添加這個程序的移動窗口（動畫風格）

Sub MoveTheWindow 

    Dim X,Y 

    X=top.screenleft 
    Y=top.screentop 

    If X<=60 Then 
    X=0 
    End If 

    If Y<=60 Then 
    Y=0 
    End If 

    If X<>0 Then 
    moveBy -20,0 
    End If 

    If Y<>0 Then 
    moveBy 0,-20 
    End If 

    If X=0 And Y=0 Then 
    moveto 0,0 
    clearInterval IntervalMovingWindow 
    End If 
End Sub 

如果邊框太大，這可能不起作用。在這種情況下，你可能需要在moveBy改變-20像-30較大的負數和If {X or Y}=60到一個更大的正數一樣If {X or Y}=80

注：不包括大括號「{}」，他們只是代表我談論X和Y條件。