Nowadays, RSS is a great features of web / windows platform as well. What is RSS?

RSS (Rich Site Summary) is a format for delivering regularly changing web content. Many news-related sites, weblogs and other online publishers syndicate their content as an RSS Feed to whoever wants it.

It allows you to easily stay informed by retrieving the latest content from the sites you are interested in. In this article, I would like to demonstrate how we can read RSS feeds.


For seeking information, traditionally we visit various sites individually which is time consuming & also very dull. Use of RSS will save your time by not needing to visit each site individually. It also ensures privacy, by not needing to join each site's email newsletter.

The number of sites offering RSS feeds is growing rapidly and includes big names like Yahoo News.

Using the Code  

Using the code is pretty simply; let’s take a simple example to implement this. Our requirement will be reading an RSS feed and displaying it into datagrid view control. We are using a very common & popular RSS feed ( of a wonderful sports news site

Here we need a simple basic concept on Dataset class, which will be found at namespace.

More details can be found at this link.

Imports System
Imports System.Data.DataSet
Imports System.IO
Imports System.Web
Imports System.Xml
Imports System.Net

Public Class rssFeed
    Public objDataset As DataSet = New DataSet
    ' Button event 
    Private Sub ButtonClose_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles ButtonClose.Click
    End Sub

    Private Sub ButtonGet_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles ButtonGet.Click
            If Me.TextBoxWebAddress.Text.Trim <> vbNullString Then
                Me.dgViewPreview.DataSource = Nothing
                objDataset.ReadXml(Me.TextBoxWebAddress.Text.Trim, _
                dgViewPreview.DataSource = objDataset.Tables(2)

            End If
        Catch ex As Exception
            objDataset = Nothing
        End Try
    End Sub

    Private Sub LinkLabelAuthor_LinkClicked(ByVal sender As System.Object, _
	ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
	Handles LinkLabelAuthor.LinkClicked
        Catch ex As Exception
        End Try

    End Sub
    Private Sub dgViewPreview_MouseClick(ByVal sender As System.Object, _
	ByVal e As System.Windows.Forms.MouseEventArgs) _
	Handles dgViewPreview.MouseClick
        Dim intRow As Integer = 0
        Dim intItems As Integer = 0
        Dim strText As String = vbNullString

            intRow = CInt(Me.dgViewPreview.CurrentCell.RowNumber)
            intItems = CInt(Me.dgViewPreview.CurrentCell.ColumnNumber)
            strText = objDataset.Tables(2).Rows(intRow).Item(intItems)
            MessageBox.Show(strText, _
                            "Selected text", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Information, _
                            MessageBoxDefaultButton.Button1, _
        Catch ex As Exception
        End Try

    End Sub
End Class       


I hope you like this article. Enjoy!


  • 1st August, 2009: Initial post
推荐.NET配套的通用数据层ORM框架:CYQ.Data 通用数据层框架