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

Comment intégrer l'internet Explorer dans une application   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 08 - ActiveX - (OLE)

Comment intégrer l'internet Explorer dans une application
# 0000000039
ajouté le 03/11/2004 14:58:34 et modifié le 25/09/2009
consulté 5193 fois
Niveau initié

Description
Voici un exemple qui incorpore l'internet explorer à l'intérieur d'une application au lieu d'utiliser l'automation.
Code source :
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
  Top = 0
  Left = 0
  Height = 443
  Width = 624
  DoCreate = .T.
  Caption = "Fureteur Fox"
  TitleBar = 0
  WindowState = 2
  AlwaysOnBottom = .T.
  Name = "Form1"
  ADD OBJECT obrowser AS olecontrol WITH ;
    Top = 31, ;
    Left = 0, ;
    Height = 305, ;
    Width = 432, ;
    TabIndex = 3, ;
    Name = "oBrowser" ,;
    OleClass = "Shell.Explorer.2"
  ADD OBJECT txturl AS textbox WITH ;
    Height = 23, ;
    Left = 42, ;
    TabIndex = 1, ;
    Top = 2, ;
    Width = 480, ;
    Name = "txtUrl"
  ADD OBJECT label1 AS label WITH ;
    Caption = "Url:", ;
    Height = 17, ;
    Left = 12, ;
    Top = 6, ;
    Width = 27, ;
    TabIndex = 4, ;
    Name = "Label1"
     ADD OBJECT btngo AS commandbutton WITH ;
    Top = 0, ;
    Left = 528, ;
    Height = 27, ;
    Width = 35, ;
    Caption = "\<Go", ;
    Default = .T., ;
    TabIndex = 2, ;
    Name = "btnGo"
  ADD OBJECT ostatus AS olecontrol WITH ;
    Top = 424, ;
    Left = 0, ;
    Height = 19, ;
    Width = 624, ;
    Align = 2, ;
    Name = "oStatus" , ;
    OleClass ="MSComctlLib.SBarCtrl.2"
  PROCEDURE navigate
    LPARAMETER lcUrl
    THISFORM.oBrowser.Navigate(TRIM(lcUrl))
  ENDPROC
  PROCEDURE Hide
    THIS.visible = .F.
    ACTI SCREEN
  ENDPROC
  PROCEDURE Resize
    THISFORM.oBrowser.Height = THISFORM.Height - THISFORM.oBrowser.Top
    THISFORM.oBrowser.Width = THISFORM.Width
  ENDPROC
  PROCEDURE Init
    THISFORM.oBrowser.Navigate("about:blank")
    THISFORM.visible = .T.
    THISFORM.WindowState  = 2
    THISFORM.Resize()
  ENDPROC
  PROCEDURE obrowser.Refresh
    NODEFAULT
  ENDPROC
  PROCEDURE obrowser.StatusTextChange
  LPARAMETERS text
  SET MESSAGE TO text
  ENDPROC
  PROCEDURE obrowser.NavigateComplete2
    LPARAMETERS pdisp, url
    THISFORM.txtUrl.value = URL
  ENDPROC
  PROCEDURE btngo.Click
    THISFORM.Navigate(TRIM(THISFORM.txtUrl.Value))
  ENDPROC
ENDDEFINE

Commentaires
le 25/09/2009, Francis Faure a écrit :
Bonjour Mike,

en petit complétement sur cette contrib de 2004 :

sur l'objet "btngo"
le compilateur bloque sur la ligne "TabIndex = 2"

il suffit de rajouter un virgule juste avant comme suite :
Default = .T., ;
TabIndex = 2, ;

alors dans ce cas ton exemple fonctionne parfaitement !
Merci !
Cordialement
Francis

le 25/09/2009, Mike Gagnon a écrit :
Merci Francis,
Mais lorsque j'ai modifié l'article, la virgule ci-trouvais, mais pas visible. Un bug dans ce qui est montré à l'écran. J'ai enlevé la virgule et je l'ai remise et cela semble correct maintenant.

le 25/09/2009, Francis Faure a écrit :
Oui, Mike, c'est parfait.

Publicité

Les pubs en cours :


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