Navigation over a Fixed Linear Topology Sample

This sample illustrates how to provide navigation over a fixed linear topology. Building the Sample Install the Windows Software Development Kit (SDK) and open its build environment command window.

 
 
 
 
 
(0)
8,201 times
Add to favorites
2/1/2011
E-mail Twitter del.icio.us Digg Facebook
Public Class WizardLauncher
    Inherits PageFunction(Of WizardContext)

    Public Sub New()
        Me.WizardData = New WizardData
    End Sub

    Protected Overrides Sub Start()
        MyBase.Start()
        MyBase.KeepAlive = True
        Dim firstPage As New WizardPage1(Me.WizardData)
        AddHandler firstPage.Return, New ReturnEventHandler(Of WizardResult)(AddressOf Me.WizardPage_Return)
        MyBase.NavigationService.Navigate(firstPage)
    End Sub

    Public Sub WizardPage_Return(ByVal sender As Object, ByVal e As ReturnEventArgs(Of WizardResult))
        Me.OnReturn(New ReturnEventArgs(Of WizardContext)(New WizardContext(e.Result, Me.WizardData)))
    End Sub

    Private WizardData As WizardData

End Class