OVH Cloud OVH Cloud

dimension fenetre msgbox

1 réponse
Avatar
julien boquet
bonjour est il possible de faire une fenetre msgbox en vbs qui prenne tout
l'écran et qui reste au premier plan s'il vous plait

ps connaitriez un bon livre sur vbs s'il vous plait

1 réponse

Avatar
Gilles LAURENT
"julien boquet" a écrit dans
le message de news:
| bonjour

Bonjour,

| est il possible de faire une fenetre msgbox en vbs qui prenne
| tout l'écran et qui reste au premier plan s'il vous plait

Une solution consiste à utiliser l'objet "InternetExplorer.Application"
pour créer la fenêtre. En jouant sur les différentes propriétés, vous
obtiendrez une fenêtre en plein écran. Ensuite il faudra "injecter" du
code HTML pour définir et afficher le contenu de la fenêtre. L'objet est
documenté ici :
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp

Set oIE = CreateObject ("InternetExplorer.Application")
oIE.Navigate "about:blank"
oIE.FullScreen = True
oIE.Visible = True
oIE.Document.Write "<html><body>Veuillez patienter</body></html>"

Note: Il faudra bien entendu faire quelque chose de beaucoup plus joli
;-)

Ensuite, il faudra activer la propriété topmost de la fenêtre IE. Pour
cela il sera nécessaire d'utiliser un composant externe, par exemple le
composant ActiveX DynaCall. A l'aide de ce composant, il sera possible
d'appeler une fonction de l'API Win32 :
http://ourworld.compuserve.com/homepages/Guenter_Born/WSHBazaar/WSHDynaCall.htm

Set oDyn = CreateObject ("DynamicWrapper")
oDyn.Register "User32.dll", "SetWindowPos", "i=lllllll", "f=s", "r=l"
oDyn.SetWindowPos oIE.hWnd, -1, 0, 0, 0, 0, 3

| ps connaitriez un bon livre sur vbs s'il vous plait

J'ai entendu du bien sur celui-ci :
VBScript - Précis & concis traduit par Jean-Claude Bellamy
http://www.oreilly.fr/catalogue/2841771520

A priori encore disponible sur fnac.com :
http://www4.fnac.com/Shelf/article.aspx?PRID21012&OrderInSession=0&Mn=3&SIDQ5824c9-f917-6d18-56e1-4ca6de03d4c2&TTL0220071438&Origin=ISBNLI&Ra=-1&To=0&Nu=1&UID
7944668-E622-73F4-654E-831AB880DF11&Fr=0

--
Gilles LAURENT
http://glsft.free.fr