ロジックコードを記述する

次に処理を記述します。

ソリューションエクスプローラ内のMainPage.xamlを展開し、MainPage.xaml.vbをダブルクリックしてコード画面を開きます。

リスト2のようにロジックコードを記述します。

リスト2: ロジックコード（MainPage.xaml.vb）

LINQ to XMLでXMLを処理するクラスの含まれる、System.Xml.Linq名前空間をインポートします。印刷の機能を提供するクラスの含まれるSystem.Windows.Printing名前空間をインポートします。ファイルの入出力に関するクラスの含まれる、System.IO名前空間をインポートします。

String型の新しいリストとして作成するメンバ変数myContentを宣言します。

XElementクラス用メンバ変数xmldocを宣言します。

■ページが読み込まれた時の処理

XElement.LoadメソッドでXML文書ファイル（syayou.xml）を読み込みます。読み込んだXML文書ファイルから<情報>要素のコレクションを取得するクエリ（query）を定義します。queryを実行します。

クエリコレクション内を反復処理する、変数resultを使って以下の処理を実行します。

新しいParagraphのインスタンスmyParagraphオブジェクトを生成します。

テキストのビジュアル・プロパティを設定します。

新しいRunのインスタンスmyRunオブジェクトを生成します。Runクラスは書式付き、または書式なしのテキストのセクションを表すクラスです。フォントサイズ、太字と文字色を指定し、Textプロパティに<タイトル>要素の内容を指定します。

以上の生成と設定ができたところで、myParagraphオブジェクトにmyRunオブジェクトを追加します。

表示されたタイトルの下に改行を追加するには、改行を表すLinebreakクラスを使います。新しいLinebreakのインスタンスmyLinebreakオブジェクトを生成して、myParagraphオブジェクトに改行を追加します。

新しいRunのインスタンスmyRun2オブジェクトを生成します。フォントサイズ、太字と文字色を指定し、Textプロパティに<著者>要素の内容を指定します。

以上の生成と設定ができたところで、myParagraphオブジェクトにmyRun2オブジェクトを追加します。

表示された著者名の下に改行を追加して、内容を表示させるのに、新しいLinebreakのインスタンスmyLinebreak2オブジェクトを生成して、myParagraphオブジェクトに改行を追加します。

新しいRunのインスタンスmyRun3オブジェクトを生成します。フォントサイズを指定し、Textプロパティに<内容>要素の内容を指定します。

以上の生成と設定ができたところで、myParagraphオブジェクトにmyRun3オブジェクトを追加します。

最後に、myRun、myRun2、myRun3の定義されたmyParagraphオブジェクトをRichTextBoxコントロールに追加します。

次に、<内容>要素の内容を1行ずつ読み取り、String型のリストであるメンバ変数myContentに追加しておきます。

このままでは、RichTextBox内に表示されるデータは、データの末尾から表示されてしまいます。そこで、先頭から表示する処理を記述します。それには、RichTextBox内の位置を表すTextPointerクラスを使います。ContentStartプロパティでRichTextBox内の先頭位置を表すTextPointer を取得します。GetNextInsertionPositionメソッドで、指定された論理方向（LogicalDirection.Forward）の、次の挿入位置となるTextPointer を取得します。LogicalDirection.Forwardで、TextPointerがRichTextBoxの指定された位置の直後に配置されます。

このように取得した値を、Selectメソッドに指定します。SelectメソッドにはTextPointerオブジェクトの同じ値（startPointer）を指定しています。これで、TextPointerが先頭に移動し、データが先頭から表示されるようになります。