RSS Feed 阅读器的简单示例

• 下载源代码 - 45.16 KB

介绍 

如今，RSS 也是 Web / Windows 平台的一个重要功能。 什么是 RSS？

RSS (Rich Site Summary) 是一种**用于传递定期更新的网站内容的形式**。 许多新闻类网站、博客和其他在线发布者将其内容以 **RSS 订阅源** 的形式提供给任何需要的人。

它允许您**轻松保持知情**，通过获取您感兴趣的网站的最新内容。 在本文中，我想演示如何读取 RSS 订阅源。

背景 

为了获取信息，传统上我们需要分别访问各个网站，这既耗时又枯燥。 使用 RSS 可以节省您的时间，无需分别访问每个网站。 它还**确保隐私**，无需订阅每个网站的电子邮件新闻通讯。

提供 RSS 订阅源的网站数量正在迅速增长，其中包括像 **Yahoo News** 这样的大型网站。

使用代码

使用代码非常简单；让我们以一个简单的例子来实现它。 我们的需求是读取一个 RSS 订阅源并将其显示到数据网格视图控件中。 我们使用一个非常常见且流行的 RSS 订阅源 (http://www.cricinfo.com/rss/livescores.xml) 来自一个精彩的体育新闻网站 **cricinfo.com**。

在这里，我们需要对 Dataset 类有一个简单的基本概念，该类可以在 System.data 命名空间中找到。

更多详细信息可以在 此链接 中找到。

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
        Application.Exit()
    End Sub

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

            End If
        Catch ex As Exception
            objDataset = Nothing
            MessageBox.Show(ex.Message.ToString)
        End Try
    End Sub

    Private Sub LinkLabelAuthor_LinkClicked(ByVal sender As System.Object, _
	ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
	Handles LinkLabelAuthor.LinkClicked
        Try
            Me.WebBrowser1.Navigate("https://codeproject.org.cn/Members/Md-Marufuzzaman")
            Me.WebBrowser1.Refresh()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        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

        Try
            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, _
                            MessageBoxOptions.DefaultDesktopOnly)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try

    End Sub
End Class       

结论

希望您喜欢这篇文章。 享受吧！

历史

• 2009 年 8 月 1 日：初始发布