sdk/samples/WPFSamples/FixedHierarchicalTopologySample/visualbasic/wizardpage2.xaml.vb

   1 Public Class WizardPage2
   2     Inherits PageFunction(Of WizardResult)
   3
   4     Public Sub New(ByVal WizardData As WizardData)
   5         Me.InitializeComponent()
   6         MyBase.DataContext = WizardData
   7     End Sub
   8
   9     Private Sub backButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
  10         MyBase.NavigationService.GoBack()
  11     End Sub
  12
  13     Private Sub cancelButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
  14         Me.OnReturn(New ReturnEventArgs(Of WizardResult)(WizardResult.Canceled))
  15     End Sub
  16
  17     Private Sub nextButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
  18         If Me.youngRadioButton.IsChecked.Value Then
  19             DirectCast(MyBase.DataContext, WizardData).DataItem4 = Nothing
  20             Dim nextPageYoung As New WizardPage3(DirectCast(MyBase.DataContext, WizardData))
  21             AddHandler nextPageYoung.Return, New ReturnEventHandler(Of WizardResult)(AddressOf Me.WizardPage_Return)
  22             MyBase.NavigationService.Navigate(nextPageYoung)
  23         Else
  24             DirectCast(MyBase.DataContext, WizardData).DataItem3 = Nothing
  25             Dim nextPageOld As New WizardPage4(DirectCast(MyBase.DataContext, WizardData))
  26             AddHandler nextPageOld.Return, New ReturnEventHandler(Of WizardResult)(AddressOf Me.WizardPage_Return)
  27             MyBase.NavigationService.Navigate(nextPageOld)
  28         End If
  29     End Sub
  30
  31     Public Sub WizardPage_Return(ByVal sender As Object, ByVal e As ReturnEventArgs(Of WizardResult))
  32         Me.OnReturn(e)
  33     End Sub
  34
  35 End Class