#眉標=Vista開發技術
#副標=Vista開發技術專欄(2)
#大標=桌面資訊互動環境─RSS Service
#作者=文／彭靖灝


==程式1	<box>===========
Function CountFeeds(f)
   Dim total, i
   
   total = f.Feeds.Count
   For i = 1 To f.Subfolders.Count
      ' 遞迴方式計算所有子資料夾的項目
      total = total + CountFeeds(f.Subfolders.Item(i-1))
   Next
   
   CountFeeds = total
End Function

Set fm = CreateObject("Microsoft.FeedsManager")
WScript.Echo "Total Feeds: " & CountFeeds(fm.RootFolder)
==<end>==============




==程式2	<box>===========
Imports Microsoft.Feeds.Interop
Imports System.Collections.Generic

…
    Private Sub btnFeedTotal_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnFeedTotal.Click
        Dim fm As New FeedsManager
        txtFeedCount.Text = CountFeeds(fm.RootFolder).ToString
    End Sub

    Private Function CountFeeds(ByVal folder As IFeedFolder) As Int32
        Dim Total, i As Int32
        Total = folder.Feeds.Count
        For i = 1 To folder.Subfolders.Count
            Total = Total + CountFeeds(folder.Subfolders.Iitem(i - 1))
        Next

        Return Total
    End Function
==<end>==============




==程式3		<box>===========
    Private Sub btnLoad_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnLoad.Click
        lstFeeds.Items.Clear()
        Dim fm As New FeedsManager
        Dim feeds As ICollection(Of IFeed) = GetFeeds(fm.RootFolder)
        For Each feed As IFeed In feeds
            lstFeeds.Items.Add(feed.Path)
        Next
    End Sub

    Private Function GetFeeds(ByVal folder As IFeedFolder) As ICollection(Of IFeed)
        Dim Result As ICollection(Of IFeed)
        Result = New List(Of IFeed)
        For i As Int32 = 0 To folder.Feeds.Count - 1
            Result.Add(folder.Feeds.item(i))
        Next
        Return Result
    End Function
==<end>==============




==程式4		<box>===========
    Private Sub lstFeeds_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles lstFeeds.SelectedIndexChanged
        ShowFeedItems(CType(lstFeeds.SelectedItem, String))
    End Sub

    Private Sub ShowFeedItems(ByVal FeedName As String)
        Dim fm As New FeedsManager
        Dim feed As IFeed
        feed = fm.GetFeed(FeedName)
        Dim item As IFeedItem
        lstFeedItems.Items.Clear()
        For Each item In feed.Items
            lstFeedItems.Items.Add(item.Title)
        Next
    End Sub
==<end>==============
     




==程式5<box>===========
<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="RSSReader" Height="300" Width="891"
    >
  <DockPanel  Margin="10">
    <DockPanel.Resources>
      <XmlDataProvider x:Key="Blog"
          Source="http://blogs.msdn.com/tims/rss.aspx"  />
      <DataTemplate x:Key="TitleTemplate">
        <TextBlock Text="{Binding XPath=title}"/>
      </DataTemplate>
    </DockPanel.Resources>
    <Label FontSize="24" FontWeight="Bold" DockPanel.Dock="Top"
           Content="{Binding Source={StaticResource Blog},
                           XPath=/rss/channel/title}" />
    <Label FontSize="18" DockPanel.Dock="Top"
           Content="{Binding Source={StaticResource Blog},
                           XPath=/rss/channel/description}" />
    <DockPanel DataContext="{Binding Source={StaticResource Blog}, XPath=/rss/channel/item}" >
      <ListBox DockPanel.Dock="Left" ItemsSource="{Binding}"
               ItemTemplate="{StaticResource TitleTemplate}"
               IsSynchronizedWithCurrentItem="True" />
      <Frame Source="{Binding XPath=link}" Width="Auto" />
    </DockPanel>
  </DockPanel>
</Window>
==<end>==============