Weado web browser

Commenter

Contenu du snippet

petit broswer web en cours de création

Source / Exemple : 


'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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Weado)