はつねの日記

Kinect, Windows 10 UWP, Windows Azure, IoT, 電子工作

ページ間パラメタの設定

忘備録

ContextクラスのプロパティをURLパラメタとして設定する例

Dim urlParam As String
Dim param As New Text.StringBuilder
Dim venueType As Type = GetType(TVenueItem)
Dim members As Reflection.PropertyInfo() = venueType.GetProperties()

For Each member As Reflection.PropertyInfo In members
param.Append("&")
param.Append(member.Name)
param.Append("=")
param.Append(HttpUtility.UrlEncode(member.GetValue(target, Nothing).ToString))
Next
param.Replace("&", "?", 0, 1)
urlParam = param.ToString()
Me.NavigationService.Navigate(New Uri("/Views/DetailsPage.xaml" & urlParam, UriKind.Relative))