Afficher une fenêtre non bloquante au lancement d'un script
JeanMarie64
Messages postés
9
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
10 octobre 2007
-
10 oct. 2007 à 10:00
JeanMarie64 Messages postés 9 Date d'inscription jeudi 27 septembre 2007 Statut Membre Dernière intervention 10 octobre 2007 - 10 oct. 2007 à 14:05
JeanMarie64 Messages postés 9 Date d'inscription jeudi 27 septembre 2007 Statut Membre Dernière intervention 10 octobre 2007 - 10 oct. 2007 à 14:05
A voir également:
- Afficher une fenêtre non bloquante au lancement d'un script
- Afficher un tableau php en html - Conseils pratiques -PHP
- Afficher les colonnes d'une table sql ✓ - Forum SQL
- Tampermonkey script tls - Forum Javascript / DHTML
- Afficher json html - Conseils pratiques -Javascript
- Afficher les colonnes d'une table ✓ - Forum SQL
2 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
10 oct. 2007 à 11:56
10 oct. 2007 à 11:56
Bonjour à tous,
Exemple:
' ################## AFFICHER UNE FENETRE D'INFORMATION
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
Next
Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = (intHorizontal - 800) / 2
objExplorer.Top = (intVertical - 100) / 2
objExplorer.Width = 500
objExplorer.Height = 180
objExplorer.Visible = 1
objExplorer.Document.Body.Style.Cursor = "wait"
objExplorer.Document.Title = fic & " - " & Now
objExplorer.Document.Body.InnerHTML = "
Création du fichier
""" &_
fic & """
en cours , merci de patienter.
"
........
' ################## FERMER LA FENETRE
objExplorer.Document.Body.Style.Cursor = "default"
objExplorer.Quit
set objExplorer = nothing
Set colItems = Nothing
Set objWMIService = Nothing
jean-marc
Exemple:
' ################## AFFICHER UNE FENETRE D'INFORMATION
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
Next
Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = (intHorizontal - 800) / 2
objExplorer.Top = (intVertical - 100) / 2
objExplorer.Width = 500
objExplorer.Height = 180
objExplorer.Visible = 1
objExplorer.Document.Body.Style.Cursor = "wait"
objExplorer.Document.Title = fic & " - " & Now
objExplorer.Document.Body.InnerHTML = "
Création du fichier
""" &_
fic & """
en cours , merci de patienter.
"
........
' ################## FERMER LA FENETRE
objExplorer.Document.Body.Style.Cursor = "default"
objExplorer.Quit
set objExplorer = nothing
Set colItems = Nothing
Set objWMIService = Nothing
jean-marc
JeanMarie64
Messages postés
9
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
10 octobre 2007
10 oct. 2007 à 14:05
10 oct. 2007 à 14:05
Merci pour l'exemple qui marche
mais est-il possible de ne pas passer par IE ?
Jean-Marie
mais est-il possible de ne pas passer par IE ?
Jean-Marie