L'auteur
Mike Gagnon
 Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004
Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
 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é 8442 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 |
|---|
|
|
Retour à la liste
le 25/09/2009,
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