Select Product Page Function : Page « Windows Presentation Foundation « VB.Net
Select Product Page Function
<PageFunction
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="NavigationApplication.SelectProductPageFunction"
Title="SelectProductPageFunction"
xmlns:local="clr-namespace:NavigationApplication"
x:TypeArguments="local:Product">
<StackPanel>
<ListBox Name="lstProducts">
<ListBoxItem>A</ListBoxItem>
<ListBoxItem>B</ListBoxItem>
<ListBoxItem>C</ListBoxItem>
</ListBox>
<TextBlock Grid.Row="1">
<Hyperlink Click="lnkOK_Click">OK</Hyperlink>
<Hyperlink Click="lnkCancel_Click">Cancel</Hyperlink>
</TextBlock>
</StackPanel>
</PageFunction>
//File:Window.xaml.vb
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Namespace NavigationApplication
Public Partial Class SelectProductPageFunction
Public Sub New()
InitializeComponent()
End Sub
Private Sub lnkOK_Click(sender As Object, e As RoutedEventArgs)
Dim item As ListBoxItem = DirectCast(lstProducts.SelectedItem, ListBoxItem)
Dim product As New Product(item.Content.ToString())
OnReturn(New ReturnEventArgs(Of Product)(product))
End Sub
Private Sub lnkCancel_Click(sender As Object, e As RoutedEventArgs)
OnReturn(Nothing)
End Sub
End Class
Public Class Product
Private m_name As String
Public Property Name() As String
Get
Return m_name
End Get
Set
m_name = value
End Set
End Property
Public Sub New(name__1 As String)
Name = name__1
End Sub
End Class
End Namespace
