无论HTA大小的屏幕分辨率如何,如何将HTA窗口定位在屏幕中央?
subdoresize ' donotusewindow _ onload
window.resizeto 800,600
strComputer='.'
set obj wmi service=getobject (winmgmts : ((str computer (root ) CIMV2 ) ) ) ) ) ) ) ) ) )。
setcolitems=obj wmi service.execquery (select * from win32 _ desktop monitor ) )。
For Each objItem in colItems
int horizontal=objitem.screen width
int vertical=objitem.screen height
下一步
intleft=(inthorizontal-800 )/2
inttop=(intvertical-600 )/2
window.moveTo intLeft,intTop
结束子
DoResize () runthesubroutinetopositionthecontainingwindow (yourhtadialog ) before the body is rendered。
但是,如果更改屏幕分辨率不起作用,请调整HTA窗口的大小
问题:如何将HTA移动到屏幕中心,而不考虑屏幕分辨率的HTA大小