<Window x:Class="WpfApplication1.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="AddHandler" Height="300" Width="300">
<Grid HorizontalAlignment="Center" VerticalAlignment="Center">
<Button>
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition />
<ColumnDefinition />
</Grid.ColumnDefinitions>
<Canvas Width="20" Height="18" VerticalAlignment="Center">
<Ellipse x:Name="myEllipse" Canvas.Left="1" Canvas.Top="1" Width="16" Height="16"
Fill="Yellow" Stroke="Black" />
</Canvas>
</Grid>
</Button>
</Grid>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Diagnostics
Imports System.Windows.Shapes
Imports System.Windows.Input
Namespace WpfApplication1
Public Partial Class Window1
Inherits System.Windows.Window
Public Sub New()
InitializeComponent()
myEllipse.[AddHandler](Ellipse.MouseDownEvent, New MouseButtonEventHandler(AddressOf MouseDownEllipse))
myEllipse.[AddHandler](Ellipse.PreviewMouseDownEvent, New MouseButtonEventHandler(AddressOf PreviewMouseDownEllipse))
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
|
