WPF VB.Net Tutorial

  1. Home
  2. VB.Net Tutorial
  3. WPF
  4. Halting event routing with Handled
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Halting Events" Height="300" Width="300">
  
        MouseDown="MouseDownButton">
                  MouseDown="MouseDownGrid">
        
          
        
                        MouseDown="ButtonDownCanvas"
                Width="20" Height="18" VerticalAlignment="Center">
                             MouseDown="MouseDownEllipse"
                   x:Name="myEllipse"
                   Canvas.Left="1" Canvas.Top="1" Width="16" Height="16"
                   Fill="Yellow" Stroke="Black" />
                             Fill="Black" />
                             Fill="Black" />
          
        
        Click!
      
    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Diagnostics
Namespace WpfApplication1
  Public Partial Class HaltingEvents
    Inherits System.Windows.Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub ButtonDownCanvas(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("ButtonDownCanvas")
      e.Handled = True
    End Sub
    Private Sub PreviewMouseDownButton(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("PreviewMouseDownButton")
    End Sub
    Private Sub MouseDownButton(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("MouseDownButton")
    End Sub
    Private Sub PreviewMouseDownGrid(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("PreviewMouseDownGrid")
    End Sub
    Private Sub MouseDownGrid(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("MouseDownGrid")
    End Sub
    Private Sub PreviewMouseDownCanvas(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("PreviewMouseDownCanvas")
    End Sub
    Private Sub PreviewMouseDownEllipse(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("PreviewMouseDownEllipse")
    End Sub
    Private Sub MouseDownEllipse(sender As Object, e As RoutedEventArgs)
      Debug.WriteLine("MouseDownEllipse")
    End Sub
  End Class
End Namespace