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

0/5 (13 avis)

Vue 13 709 fois - Téléchargée 891 fois

Télécharger le projet
Commenter

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 ;-)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_SpOrTiF Messages postés 62 Date d'inscription mardi 9 octobre 2001 Statut Membre Dernière intervention 2 septembre 2008
26 oct. 2004 à 14:20
haha! comment le savoir?:P

PaT
Skywalker13 Messages postés 111 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 27 août 2004
26 oct. 2004 à 11:23
Laisse, Metos c'est un ami et on déconne ;-)
cs_SpOrTiF Messages postés 62 Date d'inscription mardi 9 octobre 2001 Statut Membre Dernière intervention 2 septembre 2008
25 oct. 2004 à 22:08
hahahahah metos tu me fais rire, paste une source kon rit de toi la!:p
Skywalker13 Messages postés 111 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 27 août 2004
9 mai 2004 à 20:49
Le MySQL est boucoup plus puissant, rapide et stable que le VB...
tooffy123 Messages postés 55 Date d'inscription vendredi 16 mai 2003 Statut Membre Dernière intervention 16 mars 2009
9 mai 2004 à 18:12
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 !
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 (Skywalker13)