Afficher le contenu html d'une page web dans une richtextbox

Soyez le premier à donner votre avis sur cette source.

Vue 11 659 fois - Téléchargée 844 fois

Description

Le controle active-x (Microsoft Transfert Internet Control 6) est nécessaire ainsi que le controle (Microsoft Rich Text Box Control)

Insérez ce controle "Inet" et renommez le en inetTest
Insérez une listbox et renommez la en lstURLs
Insérez une RichTextBox et renommez la en rtfText
Insérez pour finir un bouton de commande et renommez le en cmdStart

Source / Exemple :


Option Explicit

Private Sub cmdStart_Click()

    Dim sURL As String
    Dim sHTML As String
    
    If lstURLs.ListIndex = -1 Then
        MsgBox "SVP choisissez une URL !"
        Exit Sub
    End If
    
    sURL = lstURLs.Text
    
    With inetTest
        .AccessType = icUseDefault
        .Protocol = icHTTP
        lblStatus.Caption = "Capture en cours..."
        sHTML = .OpenURL(sURL, icString)
        Do Until .StillExecuting = False
            DoEvents
        Loop
    End With
    
    lblStatus.Caption = "Page chargée !"
    rtfText.Text = sHTML

End Sub

Private Sub Form_Load()

    lstURLs.AddItem "http://www.yahoo.fr"

End Sub

Conclusion :


Attention... lorsque j'ai testé mon programme j'avais mis l'adresse http://www.vbfrance.com . Et ce fût une belle erreur étant donné que ce site est protégé contre les aspirateurs et cela m'a banni de celui-ci pendant 6h.. Bien que cette exemple n'en soit pas un, faites attention aux sites sur lesquels vous testez ;-)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
62
Date d'inscription
mardi 9 octobre 2001
Statut
Membre
Dernière intervention
2 septembre 2008

haha! comment le savoir?:P

PaT
Messages postés
111
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 août 2004

Laisse, Metos c'est un ami et on déconne ;-)
Messages postés
62
Date d'inscription
mardi 9 octobre 2001
Statut
Membre
Dernière intervention
2 septembre 2008

hahahahah metos tu me fais rire, paste une source kon rit de toi la!:p
Messages postés
111
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 août 2004

Le MySQL est boucoup plus puissant, rapide et stable que le VB...
Messages postés
55
Date d'inscription
vendredi 16 mai 2003
Statut
Membre
Dernière intervention
16 mars 2009

Merci !!!!
Grace a toi je vais pouvoir inventer une nouvelle sorte de base de donnée sur internet beaucoup plus simple et plus rapide a utiliser que le mysql !
Afficher les 13 commentaires

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.