Weado web browser

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 151 fois - Téléchargée 38 fois

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

Ajouter un commentaire

Commentaires

Signaler
sigma2009
Messages postés
1
Date d'inscription
vendredi 17 avril 2009
Statut
Membre
Dernière intervention
31 octobre 2009
 -
salut tout le monde g besoin d'aide,dans mon programme il ya text1 et text 2 et Web1.Navigate je voulé me connect sur mon comte facebook depuis mon programme comment transferet lé donné de mon programme nom utilisateur et mot de passe ver celui de facebook
Signaler
ranouf
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009
 -
Bonjour,

j'utilise le meme composant dans access et j'ai quelque chose de trés étrange, chaque fois que je passe à l'enregistrement suivant, la hauteur et la largeur du composant diminue, je me suis donc dit, je vais lui ajouter à chaque clik un peu de taille .... tjrs le meme probleme meme si je fais
ctl_web.width = ctl_web.width * 3 !!!


vous avez une idée d'ou pourrais venir le probleme ?
Signaler
cs_hakim0
Messages postés
123
Date d'inscription
mercredi 27 août 2003
Statut
Membre
Dernière intervention
12 août 2008
 1 -
c bonn, j'ai une question.
comment on peux retourner le code html de la page web??
Signaler
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
 1 -
http://www.vbfrance.com/article.aspx?Val=6101

Expliquement comment mofidier les headers d'une requete via un WebBrowser. Sur ma source c'est pour un webbrowser externe ouvert par la reference a SGDOCVW.DLL mais cela marche aussi avec le composant...
Signaler
cs_LordBob
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
 8 -
ne serai ce pas mieux si il y avait un zip???
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)