x:Class="WpfApplication1.HomePage"
xmlns:local="clr-namespace:WpfApplication1"
WindowTitle="Page that Navigates to an Object">
Name:
Favorite Color:
Navigate to Nancy Davolio
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Namespace WpfApplication1
Public Partial Class HomePage
Inherits Page
Public Sub New()
InitializeComponent()
End Sub
Private Sub hyperlink_Click(sender As Object, e As RoutedEventArgs)
Dim person As New Person("A", Colors.Yellow)
Me.NavigationService.Navigate(person)
End Sub
End Class
Public Class Person
Private m_name As String
Private m_favoriteColor As Color
Public Sub New()
End Sub
Public Sub New(name As String, favoriteColor As Color)
Me.m_name = name
Me.m_favoriteColor = favoriteColor
End Sub
Public Property Name() As String
Get
Return Me.m_name
End Get
Set
Me.m_name = value
End Set
End Property
Public Property FavoriteColor() As Color
Get
Return Me.m_favoriteColor
End Get
Set
Me.m_favoriteColor = value
End Set
End Property
End Class
End Namespace