NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus !


 
NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan
Rejoindre les 10996 utilisateurs priviliègés gratuitement

Créer une fenêtre popup pour afficher une page web ou une image


Voici plusieurs exemples montrant l'utilisation des 'popups' :

Dans tous les cas, créez un bouton vbs puis cliquez sur 'Modifier le code VBS'.

 

1/ Fenêtre centrée

Collez ce code dans la fenêtre d'édition :


'création de l'objet (fenêtre)
Set oIE = CreateObject("InternetExplorer.Application")

'hauteur :
oIE.Height = 380
'largeur :
oIE.Width = 580

'position X (ici pour centrer, vous pouvez entrer
'd'autres valeurs, ex: oIE.Left = 20) :

oIE.Left = (ecran.Width / 2 - (oIE.Width * ecran.TwipsperpixelX) / 2) / ecran.TwipsperpixelX
'position Y :
oIE.Top = (ecran.Height / 2 - (oIE.Height * ecran.Twipsperpixely) / 2) / ecran.TwipsperpixelY
'barre des menus ? (0 ou 1) :
oIE.Menubar = 0
'barre d'outils ? (0 ou 1) :
oIE.Toolbar = 0
'barre d'état ? (0 ou 1) :
oIE.Statusbar = 0
'page (*.htm...) ou image :
oIE.Navigate("[LECT]:\rep_images\monimage.jpg")
'on affiche la fenetre
oIE.Visible = True

(Attention : tout est en pixel ! pour convertir : Xpx=Xunite_lab/ecran.twipsperpixelX et Ypx=Yunite_lab/ecran.twipsperpixelY)

 

2/ Fenêtre en haut à droite

Collez ce code dans la fenêtre d'édition :


'création de l'objet (fenêtre)
Set oIE = CreateObject("InternetExplorer.Application")

'hauteur :
oIE.Height = 380
'largeur :
oIE.Width = 580

'position X :
oIE.Left = ecran.width / ecran.twipsperpixelx - oIE.width
'position Y :
oIE.Top = 0
'barre des menus ? (0 ou 1) :
oIE.Menubar = 0
'barre d'outils ? (0 ou 1) :
oIE.Toolbar = 0
'barre d'état ? (0 ou 1) :
oIE.Statusbar = 0
'page (*.htm...) ou image :
oIE.Navigate("[LECT]:\rep_images\monimage.jpg")
'on affiche la fenetre
oIE.Visible = True

 

3/ Fenêtre plein écran

Collez ce code dans la fenêtre d'édition :


'création de l'objet (fenêtre)
Set oIE = CreateObject("InternetExplorer.Application")

'hauteur :
oIE.Height = ecran.height / ecran.twipsperpixely
'largeur :
oIE.Width = ecran.width / ecran.twipsperpixelx

'position X :
oIE.Left =  0
'position Y :
oIE.Top = 0
'barre des menus ? (0 ou 1) :
oIE.Menubar = 0
'barre d'outils ? (0 ou 1) :
oIE.Toolbar = 0
'barre d'état ? (0 ou 1) :
oIE.Statusbar = 0
'page (*.htm...) ou image :
oIE.Navigate("[LECT]:\rep_images\monimage.jpg")
'on affiche la fenetre
oIE.Visible = True

 

Si vous avez le moindre problème ou question, n'hésitez pas à me contacter : cliquez ici !







Commentaires sur l'article :



Retour au menu






    J'augmente la popularité de mon site grâce à PopuLiens !   Logiciel Référencé sur Free'n'Share, le Plein de Freeware et de Shareware     annuaire



Rentabilisez efficacement votre site



accès aux pages







Pour obtenir le Banner explode ID de ce site cliquez ici !



Site, scripts (sauf forum : © phorum.org) et programmes copyright © Nicolas GUILLAUME 2002-2003
Toute reproduction partielle ou complète sans l'accord du webmaster est interdite.