WEADO WEB BROWSER

'Le nom de la page web dans le browser va être écrit dans le Combp
Private Sub Combo1_()
WebBrowser1.LocationName
End Sub

'Quand la touche " Retour " est pressé, le browser va à l' addresse écrit ds la combo
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    WebBrowser1.Navigate Combo1.Text
    End If
End Sub

Private Sub Command5_Click()
WebBrowser1.Navigate "http://www.hotmail.com"
End Sub



Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub
'Va à la page arrière
Private Sub Command1_Click()
On Error GoTo Erreur
WebBrowser1.GoBack
Erreur:
MsgBox "Aucune Page à l' arrière.", 64, "Arrière"
End Sub

'Va à la page suivante
Private Sub Command2_Click()
On Error GoTo Erreur
WebBrowser1.GoForward
Erreur:
MsgBox "Aucune Page à l' avant.", 64, "Avant"
End Sub

'Actualise le browser
Private Sub Command3_Click()
WebBrowser1.Refresh
End Sub

'Arrête le chargement du browser
Private Sub Command4_Click()
WebBrowser1.Stop
End Sub

'Quand le browser s' ouvre, il va à la page de Google!
Private Sub Form_load()
WebBrowser1.Navigate "http://www.google.fr"

End Sub

'Change le caption de Me (frmMain) au nom de la page dans le browser
'Et écrit l' adresse de la page dans la Combo
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.Caption = WebBrowser1.LocationName
Combo1.Text = WebBrowser1.LocationURL
End Sub