はつねの日記

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

ページ間パラメタの設定

WindowsPhone

忘備録

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))