1

HTA（HTMLアプリケーション）で現在のウィンドウ位置を取得できますか？Me.TopこれはVB6と似てMe.Leftいますが、ピクセル数を取得したいです。！？

4

2 に答える 2

2

top.screenLeftJSを使用すると、とを使用して最上部のウィンドウの位置を取得できますtop.screenTop。

于 2013-02-22T05:37:15.097 に答える
1

これを行うためのクールな方法があります。ちょっとアニメ化されています

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の両方の条件について話していることを意味します。

于 2016-06-06T14:58:48.923 に答える