ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

ShowBrowserBar: afficher/cacher les volets du navigateur Internet Explorer   



L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Internet Explorer

ShowBrowserBar: afficher/cacher les volets du navigateur Internet Explorer
# 0000000592
ajouté le 01/06/2008 03:29:53 et modifié le 01/06/2008
consulté 7939 fois
Niveau débutant

Version(s) Foxpro :
VFP 6.0

Description
La méthode ShowBrowserbar appliquée au navigateur InternetExploer ou au WebBrowser permet d'afficher les volets spécifiques en les appelant par leur identifiant de classe (CLSID) qui se trouvent obligatoirement dans le registre. IE utilise les raccourcis clavier (CTRL+H pour historique,CTRL+E pour rechecrhe,CTRL+I pour favoris...). Cet article fait suite à mon article précédent sur l'automation IE . *Il me reste le volet astuce du jour (tip of the day) .....A rechercher (comprend 50 astuces d'après le registe WINXP).Ouverture sur le menu IE (au niveau (?).
Code source :
&&afficher/cacher les 5 volets du navigateur internet explorer
*ShowBrowserBar Method
*Shows or hides a specified browser bar.
*Syntax
*object.ShowBrowserBar( _
*    vClsID As Variant, _
*    [bShow As Variant,] _
*    vSize As Variant)






for i=1 to 5
apIE=createobject("InternetExplorer.Application")
apIE.navigate("About:blank")
with apIE
.width=800
.height=600
endwith
do while apIE.busy or apIE.readystate#4
enddo
apIE.visible=.t.

do case
case i=1
apIE.document.parentWindow.alert('Dossiers explorer de windows')
pvaClsid ="{EFA24E64-B078-11d0-89E4-00C04FC9E26E}"

case i=2
apIE.document.parentWindow.alert('Barre Rechercher ')
pvaClsid ="{30D02401-6A81-11D0-8274-00C04FD5AE38} "

case i=3
apIE.document.parentWindow.alert('Dossiers favoris')
pvaClsid ="{EFA24E61-B078-11D0-89E4-00C04FC9E26E} "

case i=4
apIE.document.parentWindow.alert('Dossiers historiques de navigation')
pvaClsid ="{EFA24E62-B078-11D0-89E4-00C04FC9E26E} "

case i=5
apIE.document.parentWindow.alert('Dossiers <Channels>')
pvaClsid ="{EFA24E63-B078-11D0-89E4-00C04FC9E26E} "
endcase

=apIE.Parent.ShowBrowserBar(pvaClsid,.t.)
inkey(3)
=apIE.Parent.ShowBrowserBar(pvaClsid,.f.)
apIE.Parent.quit
clea
endfor

apIE.quit


Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3