Imports System
Imports System.IO
Imports System.Reflection
Imports System.Collections.Generic
Imports System.Xml.Serialization
Imports Windows.Storage
Imports System.Threading.Tasks
Imports System.ComponentModel.DataAnnotations
Imports System.Collections.ObjectModel
Namespace MultiSelect_UWP
Public Class NorthwindData
<Display(Name:="CustomerID")>
Public Property CustomerID As String
<Display(Name:="CompanyName")>
Public Property CompanyName As String
<Display(Name:="ContactName")>
Public Property ContactName As String
<Display(Name:="ContactTitle")>
Public Property ContactTitle As String
<Display(Name:="Address")>
Public Property Address As String
<Display(Name:="City")>
Public Property City As String
<Display(Name:="PostalCode")>
Public Property PostalCode As String
<Display(Name:="Country")>
Public Property Country As String
<Display(Name:="Phone")>
Public Property Phone As String
<Display(Name:="Fax")>
Public Property Fax As String
End Class
Public Class NorthwindStorage
Public Shared Async Function Load() As Task(Of ObservableCollection(Of NorthwindData))
Try
Dim resourceUri As Uri = New Uri("ms-appx:///Resources/Northwind.xml")
Dim file = Await StorageFile.GetFileFromApplicationUriAsync(resourceUri)
Dim fileStream = Await file.OpenAsync(FileAccessMode.Read)
Dim xmls = New XmlSerializer(GetType(ObservableCollection(Of NorthwindData)))
Return CType(xmls.Deserialize(fileStream.AsStream()), ObservableCollection(Of NorthwindData))
Catch e As Exception
Throw New FileNotFoundException("File not found")
End Try
End Function
End Class
End Namespace