How to make Internet Explorer window top most?
From: Eugene Zelikovsky (Zelikovsky_at_discussions.microsoft.com)
Date: 01/26/05
- Next message: Torgeir Bakken \(MVP\): "Re: How to make Internet Explorer window top most?"
- Previous message: Andrew: "map printer"
- Next in thread: Torgeir Bakken \(MVP\): "Re: How to make Internet Explorer window top most?"
- Reply: Torgeir Bakken \(MVP\): "Re: How to make Internet Explorer window top most?"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 26 Jan 2005 00:17:21 -0800
I have vb-script , which started applicatoin as "Internet Explorer" with
parameters.
How to place Internet Explorer on top(modal window).
'************************************************************
' Setup Internet Explorer
'************************************************************
Sub SetupMSIE
MSIE.Navigate "About:Blank"
MSIE.ToolBar = False
MSIE.StatusBar = False
MSIE.Resizable = False
MSIE.FullScreen = False
Do
Loop While MSIE.Busy
SWidth = MSIE.Document.ParentWindow.Screen.AvailWidth
SHeight = MSIE.Document.ParentWindow.Screen.AvailHeight
MSIE.Width = SWidth * .80
MSIE.Height = SHeight * .80
MSIE.Left = (SWidth - MSIE.Width)/2
MSIE.Top = (SHeight - MSIE.Height)/2
MSIE.vbApplicationModal = 0
MSIE.Visible = True
End Sub
Sub ErrHandler(bIsMSIEAvailable)
NErr = 1
if bIsMSIEAvailable then
MSIE.Document.Write "<BR>"
MSIE.Document.Write "<font color=red>An error has occured during the script
build process.</font><BR>"
MSIE.Document.Write "<font color=black>" & cstr(err.description)
MSIE.Document.Write "<BR>"
else
msgbox("An error has occured" & vbcrlf & cstr(err.description))
end if
End Sub
- Next message: Torgeir Bakken \(MVP\): "Re: How to make Internet Explorer window top most?"
- Previous message: Andrew: "map printer"
- Next in thread: Torgeir Bakken \(MVP\): "Re: How to make Internet Explorer window top most?"
- Reply: Torgeir Bakken \(MVP\): "Re: How to make Internet Explorer window top most?"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|