Dynamic controls not creating with RSS reader function

Posted by TuxMeister on Stack Overflow See other posts from Stack Overflow or by TuxMeister
Published on 2010-05-30T18:55:50Z Indexed on 2010/05/30 19:02 UTC
Read the original article Hit count: 455

Filed under:
|
|
|

Hello,

I am working on a test project for an RSS reader. I am using Chilkat's module for .NET 3.5. What I am trying to do is this:

For each item in the RSS feed, I want to dynamically create some controls (labels) that contain stuff like the title, the link and the publication date.

The problem is that only the first control comes up "rssTitle", but not the rest and it's definitely not creating the rest, nor cycling through the RSS items.

Any ideas where I'm wrong in my code?

Imports Chilkat
Public Class Form1
Dim rss As New Chilkat.Rss
Dim success As Boolean
Dim rssTitle As New Label
Dim rssLink As New Label
Dim rssPubDate As New Label
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    success = rss.DownloadRss("http://www.engadget.com/rss.xml")
    If success <> True Then
        MessageBox.Show(rss.LastErrorText)
        Exit Sub
    End If

    Dim rssChannel As Chilkat.Rss
    rssChannel = rss.GetChannel(0)
    If rssChannel Is Nothing Then
        MessageBox.Show("No channel found.")
        Exit Sub
    End If

    Dim numItems As Long
    numItems = rssChannel.NumItems
    Dim i As Long

    For i = 0 To numItems - 1
        Dim rssItem As Chilkat.Rss
        rssItem = rssChannel.GetItem(i)

        Me.Controls.Add(rssTitle)
        With rssTitle
            .Name = "rssTitle" & Me.Controls.Count.ToString + 1
            .Text = "Title: " & rssItem.GetString("title")
            .Left = 12
            .Top = 12
        End With

        Me.Controls.Add(rssLink)
        With rssLink
            .Name = "rssLink" & Me.Controls.Count.ToString + 1
            .Text = "Link: " & rssItem.GetString("link")
            .Left = 12
            .Top = 12
        End With

        Me.Controls.Add(rssPubDate)
        With rssPubDate
            .Name = "rssPubDate" & Me.Controls.Count.ToString + 1
            .Text = "Pub date: " & rssItem.GetString("pubDate")
            .Left = 12
            .Top = 12
        End With

    Next

End Sub
End Class    

I'm grateful for any help.

Thanks!

© Stack Overflow or respective owner

Related posts about vb.net

Related posts about dynamic