Handles the MouseDown event on the Canvas

    


<Window x:Class="WpfApplication1.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="WPF" Height="150" Width="300">
    <UniformGrid Columns="2" Rows="2" ButtonBase.Click="UniformGrid_Click" 
                 MouseDown="UniformGrid_MouseDown">
        <Button Content="Button" MaxHeight="25" MaxWidth="70" Name="Button"/>
        <Label Background="LightBlue" Content="Label" Name="Label"
               HorizontalContentAlignment="Center" 
               MaxHeight="25" MaxWidth="100"/>
        <TextBlock Background="Turquoise" Padding="25,7" Text="TextBlock" 
               HorizontalAlignment="Center" VerticalAlignment="Center"
               Name="TextBlock"/>
        <Canvas MouseDown="Canvas_MouseDown">
            <Rectangle Canvas.Top="15" Canvas.Left="20" Fill="Aqua" 
                Height="25" Width="100" Name="Rectangle"/>
            <TextBlock Canvas.Top="20" Canvas.Left="45" Text="Rectangle" 
                   IsHitTestVisible="False"/>            
        </Canvas>
    </UniformGrid>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Input

Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub

    ' Handles the MouseDown event on the Canvas.
    Private Sub Canvas_MouseDown(sender As Object, e As MouseButtonEventArgs)
      Dim fe As FrameworkElement = TryCast(e.OriginalSource, FrameworkElement)

      MessageBox.Show("Mouse Down on " & fe.Name, "Canvas")
    End Sub

    ' Handles the Click event on the UniformGrid.
    Private Sub UniformGrid_Click(sender As Object, e As RoutedEventArgs)
      Dim fe As FrameworkElement = TryCast(e.OriginalSource, FrameworkElement)

      MessageBox.Show("Mouse Click on " & fe.Name, "Uniform Grid")
    End Sub

    ' Handles the MouseDown event on the UniformGrid.
    Private Sub UniformGrid_MouseDown(sender As Object, e As MouseButtonEventArgs)
      Dim fe As FrameworkElement = TryCast(e.OriginalSource, FrameworkElement)

      MessageBox.Show("Mouse Down on " & fe.Name, "Uniform Grid")
    End Sub
  End Class
End Namespace

Related examples in the same category

1.	Align Button along with Canvas position
2.	Using a Canvas to absolutely position elements
3.	Simple Canvas
4.	StackPanel Demo and Canvas
5.	Canvas with MinHeight and MinWidth
6.	Draws a Path element within a Canvas
7.	Draws several Line elements within a Canvas
8.	Draws several Polyline elements within a Canvas
9.	Rectangle with Fill and Canvas position
10.	Custom Coordinates by transforming the Canvas
11.	Draw path on a Canvas
12.	Use Canvas coordination
13.	Use Canvas to layout Buttons and Labels
14.	Position UI Elements Using Exact Coordinates
15.	Pixel Snapped
16.	Positioning Rectangle on a Canvas
17.	Canvas inside canvas, showing relative absolute positioning
18.	Aligning elements using multiple attached properties of Canvas
19.	Layer elements in a Canvas element
20.	Use the four attached properties of the Canvas element: Bottom, Left, Right, and Top
21.	Canvas PreviewMouseDown action and MouseDown action
22.	StatusBar inside a Canvas
23.	Drag Items from a List and Drop Them on a Canvas
24.	Print Visual(Canvas)
25.	Get position on a Canvas with Canvas.GetLeft
26.	Use a Thumb to resize a Canvas control by responding to the DragDelta event.
27.	Canvas Positioning Properties Sample
28.	Canvas.SetTop
29.	Canvas.SetBottom
30.	Canvas.SetRight
31.	Add buttons to a Canvas with code
32.	Set control position for Canvas

Handles the MouseDown event on the Canvas : Canvas « Windows Presentation Foundation « VB.Net

Related examples in the same category