AutoCompleteBoxとLongListSelectorコントロールを使う

開発ツール

技術解説

連載 :

これから始めるWindows Phone プログラミング（基本編）

2011年8月22日(月)

PROJECT KySS

次に、ソリューションエクスプローラー内のMainPage.xamlを展開し、表示されるMainPage.xaml.vbをダブルクリックしてリスト6のロジックコードを記述します。

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

リスト6　(MainPage.xaml.vb)

01Option Strict On
02Imports System.Xml.Linq
03 
04PersonalInfoクラス内に、文字列型の「氏名」、「読み」、「年齢」、「住所」、「勤務先」、「区切り」プロパティを定義しておきます。
05Public Class PersonalInfo
06  Property 氏名 As String
07  Property 読み As String
08  Property 年齢 As String
09  Property 住所 As String
10  Property 勤務先 As String
11  Property 区切り As String
12End Class
13Partial Public Class MainPage
14  Inherits PhoneApplicationPage
15～コード略～

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

01XElement.LoadメソッドでXML文書ファイル(sampleData_Group.xml)を読み込みます。
02PersonalInfoクラス型の新しいリストであるmyPersonalInfoオブジェクトを生成します。
03LINQでは、Group By句を使って、クエリーの結果をグループ化できます。構文は次の通りです。
04 
05Group [From句で使用する場合の範囲変数] By [グループを決定するためのキーと式] Into [グループ集計方法の式] 
06 
07[グループの集計方法の式]にはInto yomiGroup=Groupと指定しています。yomiGroupは任意の変数名で他の名称でも構いません。コード・エディター上で「yomiGroup=」と入力すると、インテリセンスが働くので「Group」を選択します（図6）。
08Order by句では並べ替えを指定できます。ここでは「読み」を昇順(Ascending(規定値))で並べ替えています。降順の場合はDescendingを指定します。
09  定義したクエリーのコレクション内を、変数resultを使って反復処理します。反復処理の過程で、yomiGroupという名前で作成されたグループ（result.yomiGroup）のコレクションが取得されます。この中を、再度、反復処理しながら以下の処理を実行します。result.yomiGroupのyomiGroupは、Group By Into句のInto yomiGroup=Groupで使用した変数です。For Eachステートメントを入れ子にすることがポイントです。
10PersonalInfoクラスの「氏名、読み、年齢、住所、勤務先」のプロパティに<氏名>、<読み>、<年齢>、<住所>、<勤務先>要素の値を指定します。「区切り」のプロパティには「------------」の文字列を直接指定し、AddメソッドでmyPersonalInfoオブジェクトに追加していきます。
11  再度クエリーを定義します。PersonalInfoクラスの各プロパティに値の追加された、myPersonalInfoオブジェクトのコレクションに対して、「読み」でグループ化します。PersonalInfo型のmyGroupクラス(後述)の中で定義している処理に従って、myYomiとmyItemsに値を指定して、再グループ化します。コード・エディター内で、myYomi:=またはmyItems:=と入力するとインテリセンスが働いて、値が表示されますので、その中から選択できます（図7）。myYomi:=に指定した値がヘッダの「読み」となり、myItems:=に指定した値が「グループの中身」となります。
12LongListSelectorのItemsSourceに再グループ化したgroupByを指定します。myGroupクラス内のYomiがグループヘッダとなり、グループの中身はItems.GetEnumrator() で取得しています。
13  Private Sub MainPage_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
14    Dim xmldoc As XElement = XElement.Load("sampleData_Group.xml")
15    Dim myPersonalInfo As New List(Of PersonalInfo)
16    Dim query = From c In xmldoc.Elements("情報") Order By c.Element("読み").Value Group c By c.Element("読み").Value Into yomiGroup = Group
17  
18    For Each result In query
19      For Each result2 In result.yomiGroup
20        With myPersonalInfo
21          .Add(New PersonalInfo With {.氏名 = result2.Element("氏名").Value,
22                                                     .読み = result2.Element("読み").Value,
23                                                     .年齢 = result2.Element("年齢").Value,
24                                                     .住所 = result2.Element("住所").Value,
25                                                     .勤務先 = result2.Element("勤務先").Value,
26                                                     .区切り = "--------------------------"})
27        End With
28      Next
29    Next
30    Dim groupBy = From c In myPersonalInfo Group c By c.読み Into myYomiGroup= Group Select New myGroup(Of PersonalInfo)(myYomi:=読み, myItems:=myYomiGroup)
31    LongListSelector1.ItemsSource = groupBy
32  End Sub
33 
34データ型を特定しないジェネリック型のmyGroupクラスを作成します。ジェネリック型IEnumerable(Of T)を実装します。IEnumerable(Of T)は、コレクションに対する単純な反復処理をサポートする列挙子を公開します。
35Implements IEnumerable(Of T)と記述すると、自動的に下記の2つコードが追加されます。
36 
37  Public Function GetEnumerator() As System.Collections.Generic.IEnumerator(Of T) Implements System.Collections.Generic.IEnumerable(Of T).GetEnumerator
38 
39  End Function
40   
41  Public Function GetEnumerator1() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
42  
43  End Function
44 
45myGroupクラス内で、文字列型のYomiプロパティ(グループヘッダとなる「読み」)と、インデックスによって個別にアクセスできるオブジェクトのコレクションを表すIList(Of T)型のItemsプロパティ(グループの中身)を定義しておきます。YomiとItemsプロパティに値を代入します。これで、「読み」とインデックス付きの「読みのグループ一覧」を保持しています。
46Equalsメソッドをオーバーライドします。グループヘッダの「読み」がクリックされた時、その「読み」に該当する内容が先頭に表示されます。
47自動的に追加された上記2つのコード内では、Items.GetEnumeratorを戻り値としています。これでグループの中身を、反復処理して取得して返しています。
48  Public Class myGroup(Of T)
49    Implements IEnumerable(Of T)
50    Property Yomi As String
51    Property Items As IList(Of T)
52    Public Sub New(myYomi As String, myItems As IEnumerable(Of T))
53      Yomi = myYomi
54      Items = New List(Of T)(myItems)
55    End Sub
56  
57    Public Overrides Function Equals(obj As Object) As Boolean
58      Dim selectData As myGroup(Of T) = TryCast(obj, myGroup(Of T))
59      Return Yomi.Equals(selectData.Yomi)
60    End Function
61  
62    Public Function GetEnumerator() As System.Collections.Generic.IEnumerator(Of T) Implements System.Collections.Generic.IEnumerable(Of T).GetEnumerator
63      Return Items.GetEnumerator
64    End Function
65  
66    Public Function GetEnumerator1() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
67      Return Items.GetEnumerator
68    End Function
69  End Class
70End Class

図6：コード・エディター上で「yomiGroup=」と入力すると、インテリセンスが働くので「Group」を選択する（クリックで拡大）

図7：コード・エディター内で、myYomi:=またはmyItems:=と入力するとインテリセンスが働いて、値が表示される。その中から選択できる（クリックで拡大）

｢AutoCompleteBoxとLongListSelectorコントロールを使う｣サンプルプログラム_1

2237_1.zip
｢AutoCompleteBoxとLongListSelectorコントロールを使う｣サンプルプログラム_2

2237_2.zip

著者

PROJECT KySS

この著者の記事一覧この著者の
記事一覧

四国のSOHO。薬師寺国安（VBプログラマ）と、薬師寺聖（デザイナ、エンジニア）によるコラボレーション・ユニット。1997年6月、Dynamic HTMLとDirectAnimationの普及を目的として結成。共同開発やユニット名義での執筆活動を行う。XMLおよび.NETに関する著書や連載多数。最新刊は「Silverlight実践プログラミング」両名とも、Microsoft MVP for Development Platforms - Client App Dev (Oct 2003-Sep 2012)。http://www.PROJECTKySS.NET/