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
31 oct. 2009 à 19:01
15 févr. 2006 à 16:54
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 ?
6 juil. 2005 à 22:19
comment on peux retourner le code html de la page web??
11 nov. 2002 à 15:30
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...
11 nov. 2002 à 09:50
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.