有什么方法可以改变HTA应用程序的大小吗?
谢谢
发布于 2010-07-02 21:49:31
<script type="text/javascript">
window.resizeTo(300,290);
</script>发布于 2013-05-16 00:37:28
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中,当Window_onLoad启动(或刷新)时,HTA sub将自动被调用:
...
</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>
...我刚刚对它进行了测试(在一台旧笔记本电脑上运行Win XP ),在它缩小到较小尺寸之前,初始的较大窗口会有一个快速的闪烁,但这并不是那么糟糕。
发布于 2014-08-07 22:45:12
这是一条建议。如果在打开HTA时需要调整/移动hta的大小,那么可以将resizeTo和moveTo放在它自己的脚本标记中,紧跟在HEAD标记之后。然后,您将不会看到由于调整大小/移动而发生的闪光。
<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>
....https://stackoverflow.com/questions/3166195
复制相似问题