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

   1 Partial Public Class WizardPage4
   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 finishButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
  18         Me.OnReturn(New ReturnEventArgs(Of WizardResult)(WizardResult.Finished))
  19     End Sub
  20
  21 End Class