在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条件。