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

如果边框过大，这可能无效。在这种情况下，您可能需要将-20中的moveBy更改为较大的负数，例如-30，将If {X or Y}=60更改为较大的正数，例如If {X or Y}=80 < / p>

注意不要包含大括号＆＃39; {}＆＃39;他们只是说我在谈论X和Y条件。

在HTA中获取窗口位置

2 个答案: