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 15143 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 17 juillet 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

NHenry Messages postés 15143 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 17 juillet 2024 159
13 juin 2015 à 21:27
Pour le point 2, un shellexecute en mettant l'URL devrait passer.
Pour le premier point, je n'ai pas les moyens de charger la source sur mon PC.
cs_Didier72 Messages postés 76 Date d'inscription dimanche 10 octobre 2004 Statut Membre Dernière intervention 13 juin 2015
13 juin 2015 à 16:07
Je sais cette source date, mais puis-je encore avoir quelques aides ?

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
Sechaud Messages postés 288 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 3 janvier 2017
17 avril 2009 à 15:10
vbnino ta dernière version du programme est super mais je signale un bug.
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+
vbnino Messages postés 218 Date d'inscription jeudi 13 juillet 2006 Statut Membre Dernière intervention 11 juillet 2010
10 avril 2009 à 19:36
Juste une question : vous voyez le style CSS ?
vbnino Messages postés 218 Date d'inscription jeudi 13 juillet 2006 Statut Membre Dernière intervention 11 juillet 2010
6 avril 2009 à 12:02
Oui , j'ai utiliser XMLDoc.async=TRUE , mais sans resultat
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 avril 2009 à 11:56
de mémoire, suffit de dire qu'on veut la chose en asynchrone, pour eviter les freezes

XMLDoc.Async = true
XMLDoc.load "http://..."
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 avril 2009 à 11:55
c'est .load, oui, sorry ^^
vbnino Messages postés 218 Date d'inscription jeudi 13 juillet 2006 Statut Membre Dernière intervention 11 juillet 2010
6 avril 2009 à 11:53
Salut!

-La fenêtre se fige quand j'utilise XMLDoc.load , j'ai pas vu de XMLDoc.open !
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 avril 2009 à 10:05
Pourquoi faire joujou avec Inet ?

tu peux faire : XMLDoc.open("http://...")
direct...
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
Bravo vbnino pour ton nouveau programme.
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.
Rejoignez-nous