LECTEUR RSS EN VB6
Sechaud
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017
-
5 avril 2009 à 15:37
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 13 juin 2015 à 21:27
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 13 juin 2015 à 21:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/49724-lecteur-rss-en-vb6
https://codes-sources.commentcamarche.net/source/49724-lecteur-rss-en-vb6
13 juin 2015 à 21:27
Pour le premier point, je n'ai pas les moyens de charger la source sur mon PC.
13 juin 2015 à 16:07
1] Le détail de l'article n'apparaît pas dans la partie droite du lecteur !!!
J'ai un message qui s'ouvre me demandant l'enregistrement, l'ouverture du fichier prev.html
2] J'aimerai quand je clique sur un article pouvoir l'ouvrir dans mon navigateur par défaut
Pourrais-je encore obtenir cette aide ?
Merci
17 avril 2009 à 15:10
Quand on veut lire les détails d'un article, on obtient les détails de l'article précédent.
J'ai pu y remédier en ajoutant 1 à Node.index dans =>
Private Sub articles_NodeClick(ByVal Node As ComctlLib.Node)
....................
Set XMLELEMENT = XMLDOC.getElementsByTagName("link")(Node.index + 1) 'AVOIR LE LIEN DE L'ARTICLE
If Not XMLELEMENT Is Nothing Then
................................
A+
10 avril 2009 à 19:36
6 avril 2009 à 12:02
6 avril 2009 à 11:56
XMLDoc.Async = true
XMLDoc.load "http://..."
6 avril 2009 à 11:55
6 avril 2009 à 11:53
-La fenêtre se fige quand j'utilise XMLDoc.load , j'ai pas vu de XMLDoc.open !
6 avril 2009 à 10:05
tu peux faire : XMLDoc.open("http://...")
direct...
5 avril 2009 à 15:37
Un petit truc : Si vous en avez parfois comme moi, des messages signalant des erreurs de script, ajoutez w.silent = True dans
Private Sub articles_NodeClick(ByVal Node As ComctlLib.Node)
...................................
DoEvents
w.Silent = True
w.Visible = True
............................................
pour empêcher le WebBrowser de signaler inutilement ces erreurs .Attention le fait d'essayer de mettre True dans les Propriétés ne sert à rien car ça repasse à False dès qu'on lance. Il faut l'écrire.
J'ai déjà eu ce bug dans mes programmes.
Vbnino, tu devrais faire un Resize pour que les éléments occupent la place au mieux.