WhenAny: .NET Framework と Windows ランタイム間のブリッジ (C# および Visual Basic)

[アーティクル]
06/10/2015

このトピックの例は、タスクが完了した順に実行される非同期のタスクを処理する .NET Framework メソッドと非同期にブログフィードをダウンロードする Windows ランタイム型を結合します。この型の詳細については、「SyndicationClient」を参照してください。メソッドの詳細については、「Task.WhenAny」を参照してください。

これらの機能を結合すると、同時に複数のブログフィードのダウンロードを開始し、ダウンロードの完了と同時に結果を処理できます。 1 つのフィードが他よりも速くダウンロードされた場合、その結果が先頭に表示されます。 SyndicationClient メソッドを使用すると、フィードを簡単にダウンロードできます。Task.WhenAny メソッドを使用すると、ダウンロードが完了した次のフィードをさらに簡単に識別できます。

注意

例を実行するには、Windows 8 がコンピューターにインストールされている必要があります。また、Visual Studio から例を実行するには、Visual Studio 2012、Visual Studio 2013、Visual Studio Express 2012 for Windows 8、または Visual Studio Express 2013 for Windows もインストールされている必要があります。

次のコードは Windows ランタイムと .NET Framework からこれらの機能を結合します:

SyndicationClient.RetrieveFeedAsync は、ブログフィードをダウンロードし、IAsyncOperationWithProgress インスタンスを戻します。
AsTask``2 拡張メソッドは Task のインスタンスとして IAsyncOperationWithProgress インスタンスを表します。
WhenAny``1 は、完了したタスクのコレクションの最初のタスクを識別するタスクを戻します。

Try 
    Dim feedsQuery As IEnumerable(Of Task(Of SyndicationFeed)) =
        From uri In uriList
        Select client.RetrieveFeedAsync(uri).AsTask()
    ' AsTask changes the returns from RetrieveFeedAsync into tasks. 

    ' Run the query to start all the asynchronous processes. 
    Dim blogFeedTasksList As List(Of Task(Of SyndicationFeed)) = feedsQuery.ToList()

    Dim feed As SyndicationFeed

    ' Repeat the following until there are no tasks left: 
    '    - Grab the first one that finishes. 
    '    - Retrieve the results from the task (what the return statement  
    '      in RetrieveFeedAsync returns). 
    '    - Remove the task from the list. 
    '    - Display the results. 
    While blogFeedTasksList.Count > 0
        Dim nextTask As Task(Of SyndicationFeed) = Await Task.WhenAny(blogFeedTasksList)
        feed = Await nextTask
        blogFeedTasksList.Remove(nextTask)
        DisplayResults(feed)
    End While 

Catch ex As Exception
    ResultsTextBox.Text =
        "Page could not be loaded." & vbCrLf & "Exception: " & ex.ToString()
End Try

try
{
    IEnumerable<Task<SyndicationFeed>> feedsQuery =
            from uri in uriList
            // AsTask changes the returns from RetrieveFeedAsync into tasks. 
            select client.RetrieveFeedAsync(uri).AsTask();

    // Run the query to start all the asynchronous processes.
    List<Task<SyndicationFeed>> blogFeedTasksList = feedsQuery.ToList();

    SyndicationFeed feed;

    // Repeat the following until no tasks remain: 
    //    - Grab the first one that finishes. 
    //    - Retrieve the results from the task (what the return statement  
    //      in RetrieveFeedAsync returns). 
    //    - Remove the task from the list. 
    //    - Display the results. 
    while (blogFeedTasksList.Count > 0)
    {
        Task<SyndicationFeed> nextTask = await Task.WhenAny(blogFeedTasksList);
        feed = await nextTask;                    
        blogFeedTasksList.Remove(nextTask);
        DisplayResults(feed);
    }
}
catch (Exception ex)
{
    ResultsTextBox.Text =
        "Page could not be loaded.\n\r" + "Exception: " + ex.ToString();
}

この例では、次の行に類似した出力を生成します。各ブログに関して、ブログのタイトル、投稿のタイトルおよび日付が表示されます。

Developing for Windows
     New blog for Windows 8 app developers, 5/1/2012 2:33:02 PM -07:00
     Trigger-Start Services Recipe, 3/24/2011 2:23:01 PM -07:00
     . . .
     Countdown to PDC10, 10/26/2010 4:11:28 PM -07:00

Extreme Windows Blog
     PDXLAN 20: “Epidemic” Custom PC by Jon Hansz, 7/30/2012 2:31:35 PM -07:00
     Samsung Notebook Series 9: Taking Thin and Light to the Extreme, 7/23/2012 12:06:03 PM -07:00
     . . .
     AMD Unveils A-Series APUs, 6/13/2011 9:34:01 PM -07:00

Blogging Windows
     Windows 8 has reached the RTM milestone, 8/1/2012 9:00:00 AM -07:00
     Windows 8 will be available on…, 7/18/2012 1:09:00 PM -07:00
     . . .
     More buzz from BUILD – Developers get their devices!, 9/13/2011 7:47:57 PM -07:00

Springboard Series Blog
     What to Expect in User Experience Virtualization Beta 2, 6/25/2012 11:03:27 PM -07:00
     Introducing Microsoft BitLocker Administration 2.0 Beta, 6/12/2012 8:08:23 AM -07:00
     . . .
     The Springboard Series Visits Lima, Peru, 11/18/2011 5:27:37 AM -08:00

このトピックの残りの部分では、例の作成とその動作についての詳細を提供します。

例を実行するには、Visual Studio 2012 および Windows 8 がコンピューターにインストールされている必要があります。

このトピックは、次のセクションで構成されています。

例のセットアップオプション
スタートコードについて
スタートコードを拡張する
スタートコードをダウンロードする
完成したアプリケーションをダウンロードする
スタートコードをビルドする
完成したアプリケーションをビルドする
関連トピック

例のセットアップオプション

例は、「クイックスタート: await 演算子を使用した非同期プログラミング」に説明されているブログリーダーに基づいています。ただ、このトピックのスタートコードは、1 つではなく複数のブログフィードをダウンロードします。

スタートコードは、ブログフィードを順番にダウンロードするために Windows ランタイムの機能を使用します。つまり、ブログフィードは URL のコレクション内の一覧にある順序でダウンロードされます。完成したアプリは、ブログフィードを完了した順にダウンロードする機能を .NET Framework から追加します。

この例のコードは、次のいずれかの方法で設定できます:

スタートコード。
- スタートコードをダウンロードするの手順に従ってスタートコードをダウンロードできます。
- スタートコードをビルドするの手順に従ってスタートコードを自身で作成できます。
- スタートコードをビルドするにスクロールすると、スタートコードを実装せずに確認できます。
完了したアプリ。
- 完了したアプリをダウンロードするの手順に従って完了したアプリをダウンロードできます。
- 完了したアプリをビルドするの手順に従って完了したアプリをビルドできます。
- 完了したアプリをビルドするにスクロールすると、完了したアプリを実装せずに確認できます。

スタートコードについてのセクションでは、基本的なソリューションのキーポイントを説明します。

スタートコードを拡張するのセクションでは、AsTask``2 と Task.WhenAny を追加して、コードを変更する方法を示します。

スタートコードについて

スタートコードは、URL の一覧内の各 URL からブログフィードをダウンロードするために SyndicationClient メソッドの、RetrieveFeedAsync を使用します。このメソッドの各呼び出しは、進行中の非同期操作を表す IAsyncOperationWithProgress インスタンスを戻します。待機状態になると、非同期操作は、ダウンロードされたブログフィードに関する情報を含む SyndicationFeed インスタンスを生成します。

コードは URI の一覧の各エントリに RetrieveFeedAsync を適用するクエリを定義します。実行すると、クエリは IAsyncOperationWithProgress インスタンスのコレクションを戻します。

Dim feedsQuery As IEnumerable(Of IAsyncOperationWithProgress(Of SyndicationFeed, 
                                                                RetrievalProgress)) =
                                                From uri In uriList
                                                Select client.RetrieveFeedAsync(uri)

IEnumerable<IAsyncOperationWithProgress<SyndicationFeed, 
    RetrievalProgress>> feedsQuery = from uri in uriList
                                     select client.RetrieveFeedAsync(uri);

ToList``1 は、次のコードに示すように、クエリを実行して非同期プロセスを開始します。

Dim blogFeedOpsList As List(Of IAsyncOperationWithProgress(Of SyndicationFeed, 
                                                           RetrievalProgress)) =
                                               feedsQuery.ToList()

List<IAsyncOperationWithProgress<SyndicationFeed, 
    RetrievalProgress>> blogFeedOpsList = feedsQuery.ToList();

この時点で、アクティブな IAsyncOperationWithProgress インスタンスの一覧があります。各インスタンスが最終的な結果を得るまで、さらに待機する必要があります。

次のループは SyndicationFeed の結果を取得するために、IAsyncOperationWithProgress の各インスタンスを待機させます。

Dim feed As SyndicationFeed
For Each blogFeedOp In blogFeedOpsList
    ' The Await operator retrieves the final result (a SyndicationFeed instance) 
    ' from each IAsyncOperation instance.
    feed = Await blogFeedOp
    DisplayResults(feed)
Next

SyndicationFeed feed;
foreach (var blogFeedOp in blogFeedOpsList)
{
    // The await operator retrieves the final result (a SyndicationFeed instance) 
    // from each IAsyncOperation instance.
    feed = await blogFeedOp;
    DisplayResults(feed);
}

トピックの最後のスタートコードをビルドするのセクションで、プログラムのこのバージョンを確認できます。

非同期の Windows ランタイム API のプログラミングに関する詳細については、「クイックスタート: await 演算子を使用した非同期プログラミング」を参照してください。

スタートコードを拡張する

スタートコードは SyndicationClient がブログフィードのダウンロードを簡単にすることを示します。この例を完了する残りの手順によって、アプリケーションが、URI の一覧に表示される順序の代わりに、ダウンロードが完了した順にブログフィールドを処理できるようにします。

拡張を達成するキーは、Task.WhenAny メソッドです。非同期プロセスのコレクションに WhenAny を適用すると、待機時間を短縮するために、メソッドは最初に完了したプロセスを戻します。この例では、ブログフィードの情報を表示する順序は重要ではありません。 1 つのダウンロードが遅い場合、別のブログの結果が先に表示されます。この状態は、次の 1 点を除き、適切な WhenAny です: WhenAny はタスクのコレクションを要求します。

AsTask の呼び出し

WhenAny は Task または Task のインスタンスのコレクションを必要としますが、ブログフィードをダウンロードする SyndicationClient メソッドは、IAsyncOperationWithProgress インスタンスを戻します。このため、アプリケーションは Windows ランタイムの IAsyncOperationWithProgress オブジェクトと .NET Framework の Task のオブジェクトの間をブリッジする必要があります。

.NET Framework は遷移を実行する AsTask``2 拡張メソッドを提供します。 IAsyncOperationWithProgress のインスタンスの AsTask を起動すると、AsTask は、非同期操作を表すタスクを戻します。タスクは対応する IAsyncOperationWithProgress インスタンスの完了によって完了し、タスクにはインスタンスの結果または例外があります。

次のコードに示すように、RetrieveFeedAsync を戻した各 IAsyncOperationWithProgress インスタンスに AsTask を起動します。コードはタスクの変更を反映するために変数の名前を変更し、明確化のために明示的に型指定します。

Dim feedsQuery As IEnumerable(Of Task(Of SyndicationFeed)) =
    From uri In uriList
    Select client.RetrieveFeedAsync(uri).AsTask()
' AsTask changes the returns from RetrieveFeedAsync into tasks. 

' Run the query to start all the asynchronous processes. 
Dim blogFeedTasksList As List(Of Task(Of SyndicationFeed)) = feedsQuery.ToList()

IEnumerable<Task<SyndicationFeed>> feedsQuery =
        from uri in uriList
        // AsTask changes the returns from RetrieveFeedAsync into tasks. 
        select client.RetrieveFeedAsync(uri).AsTask();

// Run the query to start all the asynchronous processes.
List<Task<SyndicationFeed>> blogFeedTasksList = feedsQuery.ToList();

注意

AsTask は、広く認識されていませんが、非同期プログラミングの重要なロールを果たします。次のコードに示すように、IAsyncAction または IAsyncOperation のインスタンスに await 演算子を適用するたびに、コンパイラは AsTask を使用します。

' What you write. Dim feed As SyndicationFeed = Await client.RetrieveFeedAsync(feedUri)  ' What the compiler does. ' Dim feed As SyndicationFeed = Await client.RetrieveFeedAsync(feedUri).AsTask()

// What you write.      SyndicationFeed feed = await client.RetrieveFeedAsync(feedUri);   // What the compiler does.   //SyndicationFeed feed = await client.RetrieveFeedAsync(feedUri).AsTask();

WhenAny を適用する

変換の最後の手順では、アプリに Task.WhenAny メソッドを追加することです。 WhenAny は、タスク (blogFeedTasksList) のコレクションに適用され、コレクションで最初に完了したタスクを戻します。つまり、WhenAny は、待機中の場合、最初に終了したタスクを評価するタスクを戻します。

次のステートメントは、WhenAny を呼び出すか、結果を待機します。コードは明示的な型指定を使用して結果をより明確に示します。

Dim nextTask As Task(Of SyndicationFeed) = Await Task.WhenAny(blogFeedTasksList)

Task<SyndicationFeed> nextTask = await Task.WhenAny(blogFeedTasksList);

次のコードは前のステートメントと同じ動作を実行しますが、何が起きているかを明確にするために、2 つのステートメントに操作を分割しています。最初のステートメントは WhenAny を呼び出し、2 番目のステートメントはその結果を待機します。

' WhenAny returns a task that, when awaited, produces a task.
' Call:
Dim whenAnyTask As Task(Of Task(Of SyndicationFeed)) = Task.WhenAny(blogFeedTasksList)
' Await:
Dim nextTask As Task(Of SyndicationFeed) = Await whenAnyTask

// WhenAny returns a task that, when awaited, produces a task.
// Call:
Task<Task<SyndicationFeed>> whenAnyTask = Task.WhenAny(blogFeedTasksList);
// Await:
Task<SyndicationFeed> nextTask = await whenAnyTask;

最後に、最初に終了したタスクから結果 (SyndicationFeed インスタンス) を取得するために nextTask を待機する必要があります。その後、再度プロセスしないように一覧から nextTask からタスクを削除します。

feed = Await nextTask
blogFeedTasksList.Remove(nextTask)

feed = await nextTask;                    
blogFeedTasksList.Remove(nextTask);

blogFeedTasksList の各タスクに対してこれらの手順を実行するには、while ループを使用します。

While blogFeedTasksList.Count > 0
    Dim nextTask As Task(Of SyndicationFeed) = Await Task.WhenAny(blogFeedTasksList)
    feed = Await nextTask
    blogFeedTasksList.Remove(nextTask)
    DisplayResults(feed)
End While

while (blogFeedTasksList.Count > 0)
{
    Task<SyndicationFeed> nextTask = await Task.WhenAny(blogFeedTasksList);
    feed = await nextTask;                    
    blogFeedTasksList.Remove(nextTask);
    DisplayResults(feed);
}

トピックの最後の完了したアプリをビルドするのセクションで、このバージョンのプログラムを確認できます。完了したアプリをダウンロードするの手順に従って、プロジェクトをダウンロードすることもできます。

注意

ループの WhenAny の使用は、例に示すように、いくつかのタスクを格納する問題の場合、問題なく使用できます。ただし、多数のタスクが処理する場合、他のアプローチがより効率的です。詳細と例については、「Processing tasks as they complete (完了したタスクを処理する)」を参照してください。

スタートコードをダウンロードする

この例のスタートコードは、「Async Sample: Bridging from .NET to Windows (非同期のサンプル: .NET から Windows へのブリッジ)」からダウンロードできます。インターネットにアクセスできない場合、このトピックの最後にあるスタートコードをビルドするの指示に従って、スタートコードを作成します。

コードをダウンロードした後、これを開いて実行するには、次の手順に従います。

ダウンロードしたファイルを圧縮解除し、Visual Studio 2012 を開始します。
メニューバーで [ファイル]、[開く]、[プロジェクト/ソリューション] の順に選択します。
圧縮解除したサンプルコードが含まれるフォルダーに移動し、AsTaskWhenAnyDemoVB または AsTaskWhenAnyDemoCS のソリューション (.sln) ファイルを開きます。
ソリューションエクスプローラーで、SequentialBlogReader プロジェクトのショートカットメニューを開き、[スタートアッププロジェクトに設定] をクリックします。
F5 キーを押してプロジェクトをビルドし、実行します。
結果が常に同じ順序で表示されることを確認するために、コードを複数回実行します。

トピックの最後のスタートコードをビルドするのセクションにある MainPage.xaml.vb または MainPage.xaml.cs ファイルを確認できます。

アプリケーションに実行できる、多数の改善と拡張の詳細については、「ブログリーダーを作成する」を参照してください。

完成したアプリケーションをダウンロードする

例のビルドを実行せずに、例全体をダウンロードすることも可能です。スタートコードをダウンロードするのセクションの指示に従います。ただし、スタートアッププロジェクトとして WhenAnyBlogReader を選択します。

ブログフィードが異なる順序で表示されることを確認するため、プログラムを複数回実行します。

トピックの最後の完成したアプリをビルドするのセクションにある MainPage.xaml.vb または MainPage.xaml.cs ファイルを確認できます。

スタートコードをビルドする

このトピックの例は、「Async Sample: Bridging from .NET to Windows (非同期のサンプル: .NET から Windows へのブリッジ)」からダウンロードできます。アプリケーションの設定を自分で行いたい場合は、次の手順に従います。

Visual Studio 2012 を起動します。
メニューバーで [ファイル]、[新規]、[プロジェクト] の順にクリックします。

[新しいプロジェクト] ダイアログボックスが表示されます。
[インストール済み]、[テンプレート]、[Visual Basic] または [Visual C#] の順にクリックし、プロジェクトの種類の一覧の [Windows ストア] をクリックします。
プロジェクトの種類の一覧の [新しいアプリケーション (XAML)] をクリックします。
プロジェクトに「SequentialBlogReader」という名前を付け、[OK] をクリックします。

ソリューションエクスプローラーに新しいプロジェクトが表示されます。
[ソリューションエクスプローラー]で、MainPage.xaml のショートカットメニューを開き、[開く] をクリックします。

MainPage.xaml の [XAML] ウィンドウで、コードを次のコードに置き換えます。

<Page
    x:Class="SequentialBlogReader.MainPage"
    xmlns="https://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="https://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="using:AsTaskWhenAnyDemo"
    xmlns:d="https://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="https://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d">

    <Grid Background="{StaticResource ApplicationPageBackgroundThemeBrush}">
        <Button x:Name="StartButton" Content="Start" HorizontalAlignment="Stretch" Margin="325,128,330,0" VerticalAlignment="Top" Click="StartButton_Click" Height="71" Background="#FFA89B9B" FontWeight="Bold" FontSize="36"/>
        <TextBox x:Name="ResultsTextBox" Margin="325,222,330,0" TextWrapping="Wrap" VerticalAlignment="Top" Height="546" FontSize="10" ScrollViewer.VerticalScrollBarVisibility="Visible" />
    </Grid>
</Page>

テキストボックスとボタンを含むシンプルなウィンドウが、MainPage.xaml の [デザイン] ウィンドウに表示されます。

UI に実行できる、多数の改善と拡張の詳細については、「ブログリーダーを作成する」を参照してください。

ソリューションエクスプローラーで MainPage.xaml.vb または MainPage.xaml.cs のショートカットメニューを開き、[コードの表示] をクリックします。

MainPage.xaml.vb または MainPage.xaml.cs で、コードを次のコードに置き換えます。

' Add an Imports statement for SyndicationClient. 
Imports Windows.Web.Syndication


' The Blank Page item template is documented at http:'go.microsoft.com/fwlink/?LinkId=234238 

Public NotInheritable Class MainPage
    Inherits Page

    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)

    End Sub 


    ' The async modifier enables you to use await in the event handler. 
    Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs)
        ResultsTextBox.Text = "" 

        ' Disable the button until the operation is complete.
        StartButton.IsEnabled = False 

        Dim client As Windows.Web.Syndication.SyndicationClient = New SyndicationClient()

        ' Force the SyndicationClient to download the information.
        client.BypassCacheOnRetrieve = True 

        Dim uriList = CreateUriList()

        Try 
            Dim feedsQuery As IEnumerable(Of IAsyncOperationWithProgress(Of SyndicationFeed, 
                                                                            RetrievalProgress)) =
                                                            From uri In uriList
                                                            Select client.RetrieveFeedAsync(uri)

            ' Run the query to start all the asynchronous processes. 
            Dim blogFeedOpsList As List(Of IAsyncOperationWithProgress(Of SyndicationFeed, 
                                                                       RetrievalProgress)) =
                                                           feedsQuery.ToList()

            Dim feed As SyndicationFeed
            For Each blogFeedOp In blogFeedOpsList
                ' The Await operator retrieves the final result (a SyndicationFeed instance) 
                ' from each IAsyncOperation instance.
                feed = Await blogFeedOp
                DisplayResults(feed)
            Next 

        Catch ex As Exception
            ResultsTextBox.Text =
                "Page could not be loaded." & vbCrLf & "Exception: " & ex.ToString()
        End Try 

        ' Reenable the button in case you want to run the operation again.
        StartButton.IsEnabled = True 
    End Sub 


    Function CreateUriList() As List(Of Uri)

        ' Create a list of URIs. 
        Dim uriList = New List(Of Uri) From
        {
                New Uri("https://windowsteamblog.com/windows/b/developers/atom.aspx"),
                New Uri("https://windowsteamblog.com/windows/b/extremewindows/atom.aspx"),
                New Uri("https://windowsteamblog.com/windows/b/bloggingwindows/atom.aspx"),
                New Uri("https://windowsteamblog.com/windows/b/springboard/atom.aspx")
        }
        Return uriList
    End Function 


    Sub DisplayResults(sf As SyndicationFeed)

        ' Title of the blog.
        ResultsTextBox.Text &= sf.Title.Text & vbCrLf

        ' Titles and dates for blog posts. 
        For Each item As SyndicationItem In sf.Items

            ResultsTextBox.Text &= vbTab & item.Title.Text & ", " &
                                item.PublishedDate.ToString() & vbCrLf
        Next

        ResultsTextBox.Text &= vbCrLf
    End Sub 
End Class

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using Windows.Foundation;
using Windows.Foundation.Collections;
using Windows.UI.Xaml;
using Windows.UI.Xaml.Controls;
using Windows.UI.Xaml.Controls.Primitives;
using Windows.UI.Xaml.Data;
using Windows.UI.Xaml.Input;
using Windows.UI.Xaml.Media;
using Windows.UI.Xaml.Navigation;

// Add a using directive for SyndicationClient. 
using Windows.Web.Syndication;


namespace SequentialBlogReader
{
    public sealed partial class MainPage : Page
    {
        public MainPage()
        {
            this.InitializeComponent();
        }

        protected override void OnNavigatedTo(NavigationEventArgs e)
        {
        }


        private async void StartButton_Click(object sender, RoutedEventArgs e)
        {
            ResultsTextBox.Text = "";

            // Disable the button until the operation is complete.
            StartButton.IsEnabled = false;

            Windows.Web.Syndication.SyndicationClient client = new SyndicationClient();

            // Force the SyndicationClient to download the information.
            client.BypassCacheOnRetrieve = true;

            var uriList = CreateUriList();

            try
            {
                IEnumerable<IAsyncOperationWithProgress<SyndicationFeed, 
                    RetrievalProgress>> feedsQuery = from uri in uriList
                                                     select client.RetrieveFeedAsync(uri);

                // Run the query to start all the asynchronous processes.
                List<IAsyncOperationWithProgress<SyndicationFeed, 
                    RetrievalProgress>> blogFeedOpsList = feedsQuery.ToList();

                SyndicationFeed feed;
                foreach (var blogFeedOp in blogFeedOpsList)
                {
                    // The await operator retrieves the final result (a SyndicationFeed instance) 
                    // from each IAsyncOperation instance.
                    feed = await blogFeedOp;
                    DisplayResults(feed);
                }
            }
            catch (Exception ex)
            {
                ResultsTextBox.Text =
                    "Page could not be loaded.\n\r" + "Exception: " + ex.ToString();
            }

            // Reenable the button in case you want to run the operation again.
            StartButton.IsEnabled = true;
        }

        List<Uri> CreateUriList()
        {
            // Create a list of URIs.
            List<Uri> uriList = new List<Uri> 
            { 
                new Uri("https://windowsteamblog.com/windows/b/developers/atom.aspx"),
                new Uri("https://windowsteamblog.com/windows/b/extremewindows/atom.aspx"),
                new Uri("https://windowsteamblog.com/windows/b/bloggingwindows/atom.aspx"),
                new Uri("https://windowsteamblog.com/windows/b/springboard/atom.aspx")
            };
            return uriList;
        }


        void DisplayResults(SyndicationFeed sf)
        {
            // Title of the blog.
            ResultsTextBox.Text += sf.Title.Text + "\r\n";

            // Titles and dates for blog posts. 
            foreach (SyndicationItem item in sf.Items)
            {
                ResultsTextBox.Text += "\t" + item.Title.Text + ", " +
                                    item.PublishedDate.ToString() + "\r\n";
            }
            ResultsTextBox.Text += "\r\n";
        }
    }
}

F5 キーを押してプログラムを実行し、[Start] を複数回クリックします。

完成したアプリケーションをビルドする

Visual Studio 2012 を起動します。
メニューバーで [ファイル]、[新規]、[プロジェクト] の順にクリックします。

[新しいプロジェクト] ダイアログボックスが表示されます。
[インストール済み]、[テンプレート] カテゴリ、[Visual Basic] または [Visual C#]、[Windows ストア] の順に選択します。
プロジェクトの種類の一覧から [新しいアプリケーション (XAML)] をクリックします。
プロジェクトに「WhenAnyBlogReader」という名前を付け、[OK] をクリックします。

ソリューションエクスプローラーに新しいプロジェクトが表示されます。
[ソリューションエクスプローラー]で、MainPage.xaml のショートカットメニューを開き、[開く] をクリックします。

MainPage.xaml の [XAML] ウィンドウで、コードを次のコードに置き換えます。

<Page
    x:Class="WhenAnyBlogReader.MainPage"
    xmlns="https://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="https://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="using:AsTaskWhenAnyDemo"
    xmlns:d="https://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="https://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d">

    <Grid Background="{StaticResource ApplicationPageBackgroundThemeBrush}">
        <Button x:Name="StartButton" Content="Start" HorizontalAlignment="Stretch" Margin="325,128,330,0" VerticalAlignment="Top" Click="StartButton_Click" Height="71" Background="#FFA89B9B" FontWeight="Bold" FontSize="36"/>
        <TextBox x:Name="ResultsTextBox" Margin="325,222,330,0" TextWrapping="Wrap" VerticalAlignment="Top" Height="546" FontSize="10" ScrollViewer.VerticalScrollBarVisibility="Visible" />
    </Grid>
</Page>

テキストボックスとボタンを含むシンプルなウィンドウが、MainPage.xaml の [デザイン] ウィンドウに表示されます。

アプリケーションに実行できる、多数の改善と拡張の詳細については、「ブログリーダーを作成する」を参照してください。

ソリューションエクスプローラーで MainPage.xaml.vb または MainPage.xaml.cs のショートカットメニューを開き、[コードの表示] をクリックします。

MainPage.xaml.vb または MainPage.xaml.cs で、コードを次のコードに置き換えます。

' Add an Imports statement for SyndicationClient. 
Imports Windows.Web.Syndication

' Add an Imports statement for the Tasks. 
Imports System.Threading.Tasks

' The Blank Page item template is documented at http:'go.microsoft.com/fwlink/?LinkId=234238 

Public NotInheritable Class MainPage
    Inherits Page

    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)
    End Sub 


    Private Async Sub StartButton_Click(sender As Object, e As RoutedEventArgs)

        ResultsTextBox.Text = "" 

        ' Disable the button until the operation is complete.
        StartButton.IsEnabled = False 

        Dim client As Windows.Web.Syndication.SyndicationClient = New SyndicationClient()

        ' Force the SyndicationClient to download the information.
        client.BypassCacheOnRetrieve = True 

        Dim uriList = CreateUriList()

        ' The following code avoids the use of implicit typing so that you  
        ' can see the types clearly. 

        Try 
            Dim feedsQuery As IEnumerable(Of Task(Of SyndicationFeed)) =
                From uri In uriList
                Select client.RetrieveFeedAsync(uri).AsTask()
            ' AsTask changes the returns from RetrieveFeedAsync into tasks. 

            ' Run the query to start all the asynchronous processes. 
            Dim blogFeedTasksList As List(Of Task(Of SyndicationFeed)) = feedsQuery.ToList()

            Dim feed As SyndicationFeed

            ' Repeat the following until there are no tasks left: 
            '    - Grab the first one that finishes. 
            '    - Retrieve the results from the task (what the return statement  
            '      in RetrieveFeedAsync returns). 
            '    - Remove the task from the list. 
            '    - Display the results. 
            While blogFeedTasksList.Count > 0
                Dim nextTask As Task(Of SyndicationFeed) = Await Task.WhenAny(blogFeedTasksList)
                feed = Await nextTask
                blogFeedTasksList.Remove(nextTask)
                DisplayResults(feed)
            End While 

        Catch ex As Exception
            ResultsTextBox.Text =
                "Page could not be loaded." & vbCrLf & "Exception: " & ex.ToString()
        End Try 

        ' Reenable the button in case you want to run the operation again.
        StartButton.IsEnabled = True 
    End Sub 


    Function CreateUriList() As List(Of Uri)

        ' Create a list of URIs. 
        Dim uriList = New List(Of Uri) From
        {
                New Uri("https://windowsteamblog.com/windows/b/developers/atom.aspx"),
                New Uri("https://windowsteamblog.com/windows/b/extremewindows/atom.aspx"),
                New Uri("https://windowsteamblog.com/windows/b/bloggingwindows/atom.aspx"),
                New Uri("https://windowsteamblog.com/windows/b/springboard/atom.aspx")
        }
        Return uriList
    End Function 


    Sub DisplayResults(sf As SyndicationFeed)

        ' Title of the blog.
        ResultsTextBox.Text &= sf.Title.Text & vbCrLf

        ' Titles and dates for blog posts. 
        For Each item As SyndicationItem In sf.Items

            ResultsTextBox.Text &= vbTab & item.Title.Text & ", " &
                                item.PublishedDate.ToString() & vbCrLf
        Next

        ResultsTextBox.Text &= vbCrLf
    End Sub 
End Class

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using Windows.Foundation;
using Windows.Foundation.Collections;
using Windows.UI.Xaml;
using Windows.UI.Xaml.Controls;
using Windows.UI.Xaml.Controls.Primitives;
using Windows.UI.Xaml.Data;
using Windows.UI.Xaml.Input;
using Windows.UI.Xaml.Media;
using Windows.UI.Xaml.Navigation;

// Add a using directive for SyndicationClient. 
using Windows.Web.Syndication;

// Add a using directive for the Tasks. 
using System.Threading.Tasks;


namespace WhenAnyBlogReader
{
    public sealed partial class MainPage : Page
    {
        public MainPage()
        {
            this.InitializeComponent();
        }

        protected override void OnNavigatedTo(NavigationEventArgs e)
        {
        }


        private async void StartButton_Click(object sender, RoutedEventArgs e)
        {
            ResultsTextBox.Text = "";

            // Disable the button until the operation is complete.
            StartButton.IsEnabled = false;

            Windows.Web.Syndication.SyndicationClient client = new SyndicationClient();

            // Force the SyndicationClient to download the information.
            client.BypassCacheOnRetrieve = true;

            var uriList = CreateUriList();

            // The following code avoids the use of implicit typing (var) so that you  
            // can identify the types clearly. 

            try
            {
                IEnumerable<Task<SyndicationFeed>> feedsQuery =
                        from uri in uriList
                        // AsTask changes the returns from RetrieveFeedAsync into tasks. 
                        select client.RetrieveFeedAsync(uri).AsTask();

                // Run the query to start all the asynchronous processes.
                List<Task<SyndicationFeed>> blogFeedTasksList = feedsQuery.ToList();

                SyndicationFeed feed;

                // Repeat the following until no tasks remain: 
                //    - Grab the first one that finishes. 
                //    - Retrieve the results from the task (what the return statement  
                //      in RetrieveFeedAsync returns). 
                //    - Remove the task from the list. 
                //    - Display the results. 
                while (blogFeedTasksList.Count > 0)
                {
                    Task<SyndicationFeed> nextTask = await Task.WhenAny(blogFeedTasksList);
                    feed = await nextTask;                    
                    blogFeedTasksList.Remove(nextTask);
                    DisplayResults(feed);
                }
            }
            catch (Exception ex)
            {
                ResultsTextBox.Text =
                    "Page could not be loaded.\n\r" + "Exception: " + ex.ToString();
            }

            // Reenable the button in case you want to run the operation again.
            StartButton.IsEnabled = true;
        }


        List<Uri> CreateUriList()
        {
            // Create a list of URIs.
            List<Uri> uriList = new List<Uri> 
            { 
                new Uri("https://windowsteamblog.com/windows/b/developers/atom.aspx"),
                new Uri("https://windowsteamblog.com/windows/b/extremewindows/atom.aspx"),
                new Uri("https://windowsteamblog.com/windows/b/bloggingwindows/atom.aspx"),
                new Uri("https://windowsteamblog.com/windows/b/springboard/atom.aspx")
            };
            return uriList;
        }


        void DisplayResults(SyndicationFeed sf)
        {
            // Title of the blog.
            ResultsTextBox.Text += sf.Title.Text + "\r\n";

            // Titles and dates for blog posts. 
            foreach (SyndicationItem item in sf.Items)
            {
                ResultsTextBox.Text += "\t" + item.Title.Text + ", " +
                                    item.PublishedDate.ToString() + "\r\n";
            }
            ResultsTextBox.Text += "\r\n";
        }
    }
}

F5 キーを押してプログラムを実行し、[Start] を複数回クリックします。

参照

概念

Async および Await を使用した非同期プログラミング (C# および Visual Basic)

完了後の残りの非同期タスクのキャンセル (C# および Visual Basic)

完了時での複数の同期タスクとプロセスの実行 (C# および Visual Basic)

その他の技術情報

クイックスタート: await 演算子を使用した非同期プログラミング

ブログリーダーを作成する

IAsyncOperationWithProgress

次の方法で共有

WhenAny: .NET Framework と Windows ランタイム間のブリッジ (C# および Visual Basic)

例のセットアップオプション

スタートコードについて

スタートコードを拡張する

AsTask の呼び出し

WhenAny を適用する

スタートコードをダウンロードする

完成したアプリケーションをダウンロードする

スタートコードをビルドする

完成したアプリケーションをビルドする

参照

関連項目

概念

その他の技術情報

その他のリソース

次の方法で共有

WhenAny: .NET Framework と Windows ランタイム間のブリッジ (C# および Visual Basic)

例のセットアップ オプション

スタート コードについて

スタート コードを拡張する

AsTask の呼び出し

WhenAny を適用する

スタート コードをダウンロードする

完成したアプリケーションをダウンロードする

スタート コードをビルドする

完成したアプリケーションをビルドする

参照

関連項目

概念

その他の技術情報

その他のリソース

例のセットアップオプション

スタートコードについて

スタートコードを拡張する

スタートコードをダウンロードする

スタートコードをビルドする