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

Soyez le premier à donner votre avis sur cette source.

Vue 10 586 fois - Téléchargée 815 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

Commenter la réponse de cs_metos

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.