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

Soyez le premier à donner votre avis sur cette source.

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

cs_metos
Messages postés
168
Date d'inscription
vendredi 18 janvier 2002
Statut
Membre
Dernière intervention
19 octobre 2009
-
C'est null :)
Mais faut pas te vexer un jour viendra tu comprendra le VB :)
Mais je suis ton ami
Skywalker13
Messages postés
111
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 août 2004
-
metos = trou de bite anal
Skywalker13
Messages postés
111
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 août 2004
-
;-)) va jouer avec T4C...
Kayrhan
Messages postés
51
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
14 novembre 2002
-
C pas nul du tout, il ma bien servi ce code pr faire un prog pr envoyer des sms, merci :)
Kayrhan
Messages postés
51
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
14 novembre 2002
-
C pas nul du tout, il ma bien servi ce code pr faire un prog pr envoyer des sms, merci :)

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.