How Can I Center an HTA on the Screen?

re: How Can I Center an HTA on the Screen?

BRFX — Sun, 10 Mar 2013 02:45:08 GMT

Another Solution to resolve the flicker is to make the script do an initial re-size to 1px and move off screen, then on Window_OnLoad bring the script back on screen (after the calculations have been made.)

This should work, with a slight delay/problem:

1: user will see the Program Load by additional Taskbar app being indicated, yet the application would not have appeared into view yet. Depending on how much the content loaded takes the user might think that it failed to load.

Could be solved by adding SHOWINTASKBAR="no" to the HTA:Application portion of the <Head

2. The Flicker might still manifest, yet should be minimal as compared without the initial resize, then move.

I was able to view the flicker on my computer (Intel P4 desktop with 2GB DDR), yet not on my work laptop (Intel i5 laptop with 8GB DDR3)

window.resizeto 1,1 'makes the app just 1px or as significant as 1 dead-pixel

window.moveto -100,-100 'makes the app move someplace it can't be seen

Sub Window_Onload

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

For Each objItem in colItems

intHorizontal = objItem.ScreenWidth

intVertical = objItem.ScreenHeight

intLeft = (intHorizontal - 300) / 2

intTop = (intVertical - 200) / 2

window.resizeTo 300,200

window.moveTo intLeft, intTop

End Sub

</SCRIPT>

re: How Can I Center an HTA on the Screen?

JV — Thu, 17 Nov 2011 23:21:42 GMT

Since 2005 we have moved from Civil War techniques to modern methods.

window.moveTo (screen.width - document.body.clientwidth)/2, (screen.height - document.body.clientheight)/2

re: How Can I Center an HTA on the Screen?

Mnemonic — Thu, 17 Nov 2011 21:38:10 GMT

This does not work if the HTA is running as a non-admin user.

re: How Can I Center an HTA on the Screen?

jrv — Tue, 06 Sep 2011 02:48:29 GMT

Jim -

Windows changes constantly. When this article was writen in 2005, Windows was just a little baby. Today Windows is all grown up. Windows can remain stable and centered without much help from the outside community.

Windows is very thankful for all of your help.

If you need any furthur assistance from Windows please contact you vendor.

Thsnk you - The Window Washers Team.

P.S. - Good luck with that long division. Even Dr. Scripto has trouble with that.

re: How Can I Center an HTA on the Screen?

Jim — Tue, 06 Sep 2011 02:02:25 GMT

or try

window.moveTo (screen.width - document.body.clientwidth)/2, (screen.height - document.body.clientheight)/2

re: How Can I Center an HTA on the Screen?

Fred — Fri, 21 Jan 2011 08:26:59 GMT

Hi Derek,

Maybe your computer have more than one Desktop Monitor available.

Try something like this :

[...]

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

For Each objItem in colItems

if objItem.Availability = 3 then

intHorizontal = objItem.ScreenWidth

intVertical = objItem.ScreenHeight

end if

[...]

msdn.microsoft.com/.../aa394122(VS.85).aspx

re: How Can I Center an HTA on the Screen?

Derek Ralph — Fri, 07 Jan 2011 23:57:22 GMT

I copied and pasted the above code and when I run the HTA I get the following error:

Line: 26

Error: Type mismatch.

re: How Can I Center an HTA on the Screen?

Steven Harvey — Fri, 10 Dec 2010 17:23:44 GMT

If you trigger the sub before the HTA:APPLICATION tag, you shouldn't get the flashing window.

re: How Can I Center an HTA on the Screen?

John Thompson — Tue, 07 Sep 2010 06:28:01 GMT

Hi,

To remove the flicker, rename Window_Onload to something else and call it before the body renders.

......

</head>

Sub DoResize 'Do not use Window_Onload

window.resizeTo 800,600

strComputer = "."

Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

For Each objItem in colItems

intHorizontal = objItem.ScreenWidth

intVertical = objItem.ScreenHeight

intLeft = (intHorizontal - 800) / 2

intTop = (intVertical - 600) / 2

window.moveTo intLeft, intTop

End Sub

DoResize() 'Run the subroutine to position the containing window (your HTA dialog) before the body is rendered.

</script>

<body>

......

Regards,