window - 在 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

如果您的边框过大，这可能不起作用。在这种情况下，您可能需要将 更改-20为moveBy更大的负数，例如-30更改If {X or Y}=60为更大的正数，例如If {X or Y}=80

注意不要包含大括号“{}”，它们只是表示我在谈论 X 和 Y 条件句。