Microsoft web browser

Bonjour avez vous des exemples de codes utilisant le control active X microsoft web brother.

Je cherche simple à afficher une page web dans un formulaire.

Merci

Patrick

bonjour,

une solution simple :

Code:

---

1 2	Me.WebBrowser.Navigate "http:\\developpez.com"

---

avec WebBrowser le nom de mon controle. Code VBA à placer sur le FormLoad par exemple.

bonne journée,

Philippe

Bonjour,

On imagine que sur un formulaire on inscrit le Navigateur Web Microsoft en passant par Insertion/Contrôle ActiveX
Largeur 25 cm Hauteur 13
On lui donne un nom. Exemple : WebBrowser
Dans l'en tête du formulaire Un bouton surnommé :cmdGo
Un peu de code :

Code:

---

1 2 3 4

Private Sub cmdGo_Click() On Error Resume Next Me.WebBrowser.GoHome End Sub

---

Ou sommes nous? Pour le savoir :
Dans l'en tête de formulaire une zone de texte de 11 cm x 0,6 cm —> txtDirection
un bouton—>cmdOuSuije
Un peu de code :

Code:

---

1 2 3

Private Sub cmdOuSuije_Click() Me.txtDirection = Me.WebBrowser.LocationURL End Sub

---

On veut rentrer une adresse directement : Dans le module de ce formulaire :

Code:

---

1 2 3 4 5

Private Sub txtDirection_AfterUpdate() If Len(Me!txtDirection.Value) > 0 Then Navigate Me!txtDirection.Value End If End Sub

---

Code:

---

1 2 3 4 5 6 7

Private Sub Navigate(strURL As String) On Error Resume Next Me.WebBrowser.SetFocus strURL = Me.txtDirection.Value Me.WebBrowser.Navigate strURL DoCmd.ShowToolbar "Web", acToolbarNo End Sub

---

On veut aller et revenir :

Un bouton —>cmdPrecedent —> un peu de code :

Code:

---

1 2 3 4

Private Sub cmdPrecedent_Click() On Error Resume Next Me.WebBrowser.GoBack End Sub

---

Un bouton —> cmdSuivant —> Un peu de code :

Code:

---

1 2 3 4

Private Sub cmdSuivant_Click() On Error Resume Next Me.WebBrowser.GoForward End Sub

---

Etc..

Cordialement.

Merci à vous deux c'est parfait

Cordialement

Patrick