sdk/samples/WPFSamples/ApplicationShutdownSample/visualbasic/childwindow.xaml.vb

   1 Imports System
   2 Imports System.ComponentModel
   3 Imports System.Windows
   4
   5 Public Class ChildWindow
   6     Inherits Window
   7
   8     Public Sub New()
   9         Me.InitializeComponent()
  10     End Sub
  11
  12     Private Sub ChildWindow_Closed(ByVal sender As Object, ByVal e As EventArgs)
  13         Console.WriteLine("Closed")
  14     End Sub
  15
  16     Private Sub ChildWindow_Closing(ByVal sender As Object, ByVal e As CancelEventArgs)
  17         Console.WriteLine("Closing")
  18         Dim result As MessageBoxResult = MessageBox.Show("Allow Shutdown?", "Application Shutdown Sample", MessageBoxButton.YesNo, MessageBoxImage.Question)
  19         e.Cancel = (result = MessageBoxResult.No)
  20     End Sub
  21
  22 End Class