更改HTA应用程序窗口大小

StackOverflow https://stackoverflow.com/questions/3166195

  •  02-10-2019
  •  | 
  •  

题

有什么方法可以更改HTA应用程序的大小？

谢谢

有帮助吗？

解决方案 

<script type="text/javascript">
    window.resizeTo(300,290);
</script>

其他提示

JavaScript和VBScript加载时大小HTA的方法，到1/4屏幕区域 （高度的一半，宽度的一半） 并以此为中心 - 使用 screen.availWidth 和 screen.availHeight :

<SCRIPT LANGUAGE="javascript">

function Window_onLoad(){  // resize to quarter of screen area, centered
   window.resizeTo(screen.availWidth/2,screen.availHeight/2);
   window.moveTo(screen.availWidth/4,screen.availHeight/4);
}

window.onload=Window_onLoad;

</SCRIPT>

在vbsscript a Window_onLoad SUB将在HTA启动（或刷新）的任何时候自动被调用：

...
</head>

<SCRIPT LANGUAGE="VBScript">

Sub Window_onLoad
    ' resize to quarter of screen area, centered
    window.resizeTo screen.availWidth/2,screen.availHeight/2
    window.moveTo screen.availWidth/4,screen.availHeight/4
End Sub 

</SCRIPT>

<BODY>
...

我刚刚对其进行了测试（在旧笔记本电脑上赢得XP），并且在最初的较大窗口缩小到较小的尺寸之前，很快就会闪烁，但还不错。

这是一个提示。如果在打开HTA时需要调整/移动HTA，则在Head标签之后将Resizeto和Moveto放在自己的脚本标签中。然后，您将不会看到由于调整大小/移动而发生的闪光灯。

<HTML>  
  <HEAD>
    <SCRIPT type="text/vbscript" language="vbscript">
      ' Do the window sizing early so user doens't see the window move and resize
      Window.resizeTo 330, 130

      Call CenterWindow

      Sub CenterWindow()
        Dim x, y
        With Window.Screen
          x = (.AvailWidth  - 330 ) \ 2
          y = (.AvailHeight - 130 ) \ 2
        End With
        Window.MoveTo x, y
      End Sub
    </SCRIPT>
....

尝试设置HTA属性WindowState以最小化

windowstate="minimize"

然后，您的调整大小程序将设置所需的大小并强制窗口显示。

首先将重点放在您的窗口上：

    window.focus()
    window.resizeTo(500,500)
    window.moveTo(screen.availWidth-500,0)
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top