Click here to Skip to main content
12,350,451 members (24,613 online)
Click here to Skip to main content
Articles » Languages » VB.NET » General » Downloads

Stats

69.2K views
3.4K downloads
44 bookmarked
Posted

A Simple Example of RSS Feed Reader

, 1 Aug 2009 CPOL
This article will demonstrate how to read RSS feeds
RSSFeedReader
RSSFeedReader
bin
Debug
ReadRssFeed.exe
ReadRssFeed.vshost.exe
ReadRssFeed.vshost.exe.manifest
My Project
Application.myapp
RSSFeedReader.suo
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class rssFeed
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rssFeed))
        Me.PanelHeader = New System.Windows.Forms.Panel
        Me.PanelContainer = New System.Windows.Forms.Panel
        Me.TabControlPanel = New System.Windows.Forms.TabControl
        Me.TabPageHTML = New System.Windows.Forms.TabPage
        Me.LabelHTMLSource = New System.Windows.Forms.Label
        Me.TabPageWeb = New System.Windows.Forms.TabPage
        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.ButtonGet = New System.Windows.Forms.Button
        Me.LabelFeedAddress = New System.Windows.Forms.Label
        Me.TextBoxWebAddress = New System.Windows.Forms.TextBox
        Me.PanelFooter = New System.Windows.Forms.Panel
        Me.LinkLabelAuthor = New System.Windows.Forms.LinkLabel
        Me.ButtonClose = New System.Windows.Forms.Button
        Me.dgViewPreview = New System.Windows.Forms.DataGrid
        Me.PanelContainer.SuspendLayout()
        Me.TabControlPanel.SuspendLayout()
        Me.TabPageHTML.SuspendLayout()
        Me.TabPageWeb.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.PanelFooter.SuspendLayout()
        CType(Me.dgViewPreview, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'PanelHeader
        '
        Me.PanelHeader.BackgroundImage = CType(resources.GetObject("PanelHeader.BackgroundImage"), System.Drawing.Image)
        Me.PanelHeader.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.PanelHeader.Dock = System.Windows.Forms.DockStyle.Top
        Me.PanelHeader.Location = New System.Drawing.Point(0, 0)
        Me.PanelHeader.Name = "PanelHeader"
        Me.PanelHeader.Size = New System.Drawing.Size(628, 39)
        Me.PanelHeader.TabIndex = 0
        '
        'PanelContainer
        '
        Me.PanelContainer.Controls.Add(Me.TabControlPanel)
        Me.PanelContainer.Controls.Add(Me.Panel1)
        Me.PanelContainer.Dock = System.Windows.Forms.DockStyle.Fill
        Me.PanelContainer.Location = New System.Drawing.Point(0, 39)
        Me.PanelContainer.Name = "PanelContainer"
        Me.PanelContainer.Size = New System.Drawing.Size(628, 367)
        Me.PanelContainer.TabIndex = 1
        '
        'TabControlPanel
        '
        Me.TabControlPanel.Controls.Add(Me.TabPageHTML)
        Me.TabControlPanel.Controls.Add(Me.TabPageWeb)
        Me.TabControlPanel.Location = New System.Drawing.Point(2, 63)
        Me.TabControlPanel.Name = "TabControlPanel"
        Me.TabControlPanel.SelectedIndex = 0
        Me.TabControlPanel.Size = New System.Drawing.Size(625, 256)
        Me.TabControlPanel.TabIndex = 1
        '
        'TabPageHTML
        '
        Me.TabPageHTML.Controls.Add(Me.dgViewPreview)
        Me.TabPageHTML.Controls.Add(Me.LabelHTMLSource)
        Me.TabPageHTML.Location = New System.Drawing.Point(4, 22)
        Me.TabPageHTML.Name = "TabPageHTML"
        Me.TabPageHTML.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPageHTML.Size = New System.Drawing.Size(617, 230)
        Me.TabPageHTML.TabIndex = 0
        Me.TabPageHTML.Text = "RSS"
        Me.TabPageHTML.UseVisualStyleBackColor = True
        '
        'LabelHTMLSource
        '
        Me.LabelHTMLSource.AutoSize = True
        Me.LabelHTMLSource.Location = New System.Drawing.Point(4, 4)
        Me.LabelHTMLSource.Name = "LabelHTMLSource"
        Me.LabelHTMLSource.Size = New System.Drawing.Size(43, 13)
        Me.LabelHTMLSource.TabIndex = 1
        Me.LabelHTMLSource.Text = "Reasult"
        '
        'TabPageWeb
        '
        Me.TabPageWeb.Controls.Add(Me.WebBrowser1)
        Me.TabPageWeb.Location = New System.Drawing.Point(4, 22)
        Me.TabPageWeb.Name = "TabPageWeb"
        Me.TabPageWeb.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPageWeb.Size = New System.Drawing.Size(617, 230)
        Me.TabPageWeb.TabIndex = 1
        Me.TabPageWeb.Text = "Web "
        Me.TabPageWeb.UseVisualStyleBackColor = True
        '
        'WebBrowser1
        '
        Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.WebBrowser1.Location = New System.Drawing.Point(3, 3)
        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
        Me.WebBrowser1.Name = "WebBrowser1"
        Me.WebBrowser1.Size = New System.Drawing.Size(611, 224)
        Me.WebBrowser1.TabIndex = 0
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.ButtonGet)
        Me.Panel1.Controls.Add(Me.LabelFeedAddress)
        Me.Panel1.Controls.Add(Me.TextBoxWebAddress)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(628, 57)
        Me.Panel1.TabIndex = 0
        '
        'ButtonGet
        '
        Me.ButtonGet.Location = New System.Drawing.Point(541, 29)
        Me.ButtonGet.Name = "ButtonGet"
        Me.ButtonGet.Size = New System.Drawing.Size(75, 23)
        Me.ButtonGet.TabIndex = 2
        Me.ButtonGet.Text = "&Get Preview"
        Me.ButtonGet.UseVisualStyleBackColor = True
        '
        'LabelFeedAddress
        '
        Me.LabelFeedAddress.AutoSize = True
        Me.LabelFeedAddress.Location = New System.Drawing.Point(3, 9)
        Me.LabelFeedAddress.Name = "LabelFeedAddress"
        Me.LabelFeedAddress.Size = New System.Drawing.Size(53, 13)
        Me.LabelFeedAddress.TabIndex = 1
        Me.LabelFeedAddress.Text = "RSS feed"
        '
        'TextBoxWebAddress
        '
        Me.TextBoxWebAddress.Location = New System.Drawing.Point(62, 6)
        Me.TextBoxWebAddress.Name = "TextBoxWebAddress"
        Me.TextBoxWebAddress.Size = New System.Drawing.Size(554, 20)
        Me.TextBoxWebAddress.TabIndex = 0
        Me.TextBoxWebAddress.Text = "http://www.cricinfo.com/rss/livescores.xml"
        '
        'PanelFooter
        '
        Me.PanelFooter.Controls.Add(Me.LinkLabelAuthor)
        Me.PanelFooter.Controls.Add(Me.ButtonClose)
        Me.PanelFooter.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.PanelFooter.Location = New System.Drawing.Point(0, 364)
        Me.PanelFooter.Name = "PanelFooter"
        Me.PanelFooter.Size = New System.Drawing.Size(628, 42)
        Me.PanelFooter.TabIndex = 2
        '
        'LinkLabelAuthor
        '
        Me.LinkLabelAuthor.AutoSize = True
        Me.LinkLabelAuthor.Location = New System.Drawing.Point(-1, 26)
        Me.LinkLabelAuthor.Name = "LinkLabelAuthor"
        Me.LinkLabelAuthor.Size = New System.Drawing.Size(420, 13)
        Me.LinkLabelAuthor.TabIndex = 2
        Me.LinkLabelAuthor.TabStop = True
        Me.LinkLabelAuthor.Text = "Author: Md. Marufuzzaman (http://www.codeproject.com/Members/Md-Marufuzzaman)"
        '
        'ButtonClose
        '
        Me.ButtonClose.Location = New System.Drawing.Point(550, 16)
        Me.ButtonClose.Name = "ButtonClose"
        Me.ButtonClose.Size = New System.Drawing.Size(75, 23)
        Me.ButtonClose.TabIndex = 0
        Me.ButtonClose.Text = "&Close"
        Me.ButtonClose.UseVisualStyleBackColor = True
        '
        'dgViewPreview
        '
        Me.dgViewPreview.DataMember = ""
        Me.dgViewPreview.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.dgViewPreview.HeaderFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.dgViewPreview.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgViewPreview.Location = New System.Drawing.Point(-4, 20)
        Me.dgViewPreview.Name = "dgViewPreview"
        Me.dgViewPreview.ReadOnly = True
        Me.dgViewPreview.Size = New System.Drawing.Size(622, 198)
        Me.dgViewPreview.TabIndex = 6
        '
        'rssFeed
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(628, 406)
        Me.Controls.Add(Me.PanelFooter)
        Me.Controls.Add(Me.PanelContainer)
        Me.Controls.Add(Me.PanelHeader)
        Me.MaximizeBox = False
        Me.Name = "rssFeed"
        Me.Text = "Read rss feed"
        Me.PanelContainer.ResumeLayout(False)
        Me.TabControlPanel.ResumeLayout(False)
        Me.TabPageHTML.ResumeLayout(False)
        Me.TabPageHTML.PerformLayout()
        Me.TabPageWeb.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        Me.PanelFooter.ResumeLayout(False)
        Me.PanelFooter.PerformLayout()
        CType(Me.dgViewPreview, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents PanelHeader As System.Windows.Forms.Panel
    Friend WithEvents PanelContainer As System.Windows.Forms.Panel
    Friend WithEvents PanelFooter As System.Windows.Forms.Panel
    Friend WithEvents ButtonClose As System.Windows.Forms.Button
    Friend WithEvents TabControlPanel As System.Windows.Forms.TabControl
    Friend WithEvents TabPageHTML As System.Windows.Forms.TabPage
    Friend WithEvents TabPageWeb As System.Windows.Forms.TabPage
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents ButtonGet As System.Windows.Forms.Button
    Friend WithEvents LabelFeedAddress As System.Windows.Forms.Label
    Friend WithEvents TextBoxWebAddress As System.Windows.Forms.TextBox
    Friend WithEvents LabelHTMLSource As System.Windows.Forms.Label
    Friend WithEvents LinkLabelAuthor As System.Windows.Forms.LinkLabel
    Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
    Friend WithEvents dgViewPreview As System.Windows.Forms.DataGrid

End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Md. Marufuzzaman
Architect
Bangladesh Bangladesh
A highly experienced leader with successful track record of software development, product innovations, brand management and corporate communication etc. Some successful product innovations have also achieved and awards “Most Valuable Professional” (MVP) at 2010 and 2011 by codeproject.com and also selected as a mentor of codeproject.com. Published over 100 technical articles in various software development resource sites (i.e., codeprojetc.com, Microsoft MSDN, and IEEE & IBM (In progress)) and various IT Forums, Blogs etc.

Over ten years of professional experiences in ICT field having extensive experience in formulating corporate vision and long term strategy. Leading development related functions including design, development, services, data management and analytics, customer experience management, content services, digital analytics and optimization.

An individual with results-driven approach and relentless in pursuit of excellence from a business and organizational standpoint. Believes in transparency, commitment and teamwork.

Expertise: Software/Solution Architect, SaaS platform base application, Large scale win32/web based business software solutions, enterprise applications, integration, etc.

Technologies/Tools: Microsoft.Net version 05/08/10/12, Microsoft SQL Server version 7/2K/05/08/12 , Oracle version 10/11, MySql version 5.1, 5.5, PS2, Visual C#, R, VB.NET, ASP.NET, PHP, API, MVC, WebAPI , Add-In Visual Basic etc.,. I have also more than two years’ of strong experience in mobile-VAS (platform development).

Points of Interest: Technology and research & development especially focused on business functionalities and social business areas as well, few stuff including:

1.R&D on new techniques as required to increase business revenue.
2.Urban and rural sectors to improve people’s lifestyle, better medical facilities, education, social business etc., using innovative technical solutions.
3.Research and innovative product development.
4.Etc.

You may also be interested in...

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.160621.1 | Last Updated 1 Aug 2009
Article Copyright 2009 by Md. Marufuzzaman
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid