NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024
-
16 mai 2006 à 14:00
cs_Blodox
Messages postés134Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention24 octobre 2010
-
3 août 2008 à 08:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Blodox
Messages postés134Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention24 octobre 2010 3 août 2008 à 08:41
Au vu de mon expérience grandissante (si! si!), j'envisage une refonte complète
cf WALL STREET V6 MISE À JOUR ET REFONTE @ http://www.vbfrance.com/code.aspx?ID=47467 ... à suivre ...
cs_Stephane33
Messages postés630Date d'inscriptionsamedi 15 février 2003StatutModérateurDernière intervention 9 octobre 20111 8 juin 2006 à 11:37
Private Function ExtraitTitreRSS(ByVal Chemin As String) As String
Dim XmlDoc As XmlDocument = New XmlDocument
XmlDoc.Load(Chemin)
Dim element As XmlNodeList
Dim noeud As XmlNode
Dim noeudEnf As XmlNode
element = XmlDoc.DocumentElement.GetElementsByTagName("item")
For Each noeud In element
For Each noeudEnf In noeud.ChildNodes
If (noeudEnf.LocalName = "title") Then 'ici on retient que les titres principaux
ExtraitTitreRSS &= noeudEnf.InnerText
ExtraitTitreRSS &= " * "
End If
Next
Next
End Function
Plusieurs sources en flux RSS, avec un moteur de recherche.
Je vois bien un popup menu sur ta barre défilante avec un choix des "channels"
a faire défiler
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 16 mai 2006 à 16:23
Je pense. sinon, met le code à copier de manière visible.
cs_Blodox
Messages postés134Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention24 octobre 2010 16 mai 2006 à 15:43
J'ai en cours une version comme ça (gen.dyn.), mais bon...
Hou!! Contrôle personnalisé?, J'en suis pas encore là ... (on peut avec toutes les versions de vb.net? j'utilise la version "initiation", donc j'ai pas certains trucs des versions "pro" bcp plus chères...)
a+
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 16 mai 2006 à 14:00
Bonjour,
# Me.PB_029 = New System.Windows.Forms.PictureBox()
# Me.PB_032 = New System.Windows.Forms.PictureBox()
# Me.PB_031 = New System.Windows.Forms.PictureBox()
# Me.PB_064 = New System.Windows.Forms.PictureBox()
# Me.PB_030 = New System.Windows.Forms.PictureBox()
# Me.PB_096 = New System.Windows.Forms.PictureBox()
# Me.PB_097 = New System.Windows.Forms.PictureBox()
Tu ne peux pas les générées dynamiquement ?
Sinon, utilise de préférence un controle personalisé pour ce genre de truc, c'est plus propre et réutilisable.
3 août 2008 à 08:41
cf WALL STREET V6 MISE À JOUR ET REFONTE @ http://www.vbfrance.com/code.aspx?ID=47467
... à suivre ...
8 juin 2006 à 11:37
exemple celui de l'AFP http://www.afp.fr/francais/rss/stories.xml
ExtraitTitreRSS("http://www.afp.fr/francais/rss/stories.xml")
Private Function ExtraitTitreRSS(ByVal Chemin As String) As String
Dim XmlDoc As XmlDocument = New XmlDocument
XmlDoc.Load(Chemin)
Dim element As XmlNodeList
Dim noeud As XmlNode
Dim noeudEnf As XmlNode
element = XmlDoc.DocumentElement.GetElementsByTagName("item")
For Each noeud In element
For Each noeudEnf In noeud.ChildNodes
If (noeudEnf.LocalName = "title") Then 'ici on retient que les titres principaux
ExtraitTitreRSS &= noeudEnf.InnerText
ExtraitTitreRSS &= " * "
End If
Next
Next
End Function
Plusieurs sources en flux RSS, avec un moteur de recherche.
Je vois bien un popup menu sur ta barre défilante avec un choix des "channels"
a faire défiler
16 mai 2006 à 16:23
16 mai 2006 à 15:43
Hou!! Contrôle personnalisé?, J'en suis pas encore là ... (on peut avec toutes les versions de vb.net? j'utilise la version "initiation", donc j'ai pas certains trucs des versions "pro" bcp plus chères...)
a+
16 mai 2006 à 14:00
# Me.PB_029 = New System.Windows.Forms.PictureBox()
# Me.PB_032 = New System.Windows.Forms.PictureBox()
# Me.PB_031 = New System.Windows.Forms.PictureBox()
# Me.PB_064 = New System.Windows.Forms.PictureBox()
# Me.PB_030 = New System.Windows.Forms.PictureBox()
# Me.PB_096 = New System.Windows.Forms.PictureBox()
# Me.PB_097 = New System.Windows.Forms.PictureBox()
Tu ne peux pas les générées dynamiquement ?
Sinon, utilise de préférence un controle personalisé pour ce genre de truc, c'est plus propre et réutilisable.