sdk/samples/WPFSamples/WizardSample/visualbasic/wizardlauncher.vb

   1 Imports System
   2 Imports System.Runtime.CompilerServices
   3 Imports System.Windows.Navigation
   4
   5 Public Class WizardLauncher
   6     Inherits PageFunction(Of WizardResult)
   7
   8     Public Event WizardReturn As WizardReturnEventHandler
   9
  10     Public Sub New()
  11         Me.wizardData = New WizardData
  12     End Sub
  13
  14     Protected Overrides Sub Start()
  15         MyBase.Start()
  16         MyBase.KeepAlive = True
  17         Dim firstPage As New WizardPage1(Me.wizardData)
  18         AddHandler firstPage.Return, New ReturnEventHandler(Of WizardResult)(AddressOf Me.wizardPage_Return)
  19         MyBase.NavigationService.Navigate(firstPage)
  20     End Sub
  21
  22     Public Sub wizardPage_Return(ByVal sender As Object, ByVal e As ReturnEventArgs(Of WizardResult))
  23         RaiseEvent WizardReturn(Me, New WizardReturnEventArgs(e.Result, Me.wizardData))
  24         Me.OnReturn(Nothing)
  25     End Sub
  26
  27     Private wizardData As WizardData
  28
  29 End Class
  30
  31