WPF VB.Net

  1. Home
  2. VB.Net
  3. WPF
  4. Use Mouse AddMouseDownHandler(myEllipse, MouseDownEllipse)
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Event Examples" Height="300" Width="300">
  
    
  

//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 AttachedEvents
    Inherits System.Windows.Window
    Public Sub New()
      InitializeComponent()
      Mouse.AddPreviewMouseDownHandler(myEllipse, AddressOf PreviewMouseDownEllipse)
      Mouse.AddMouseDownHandler(myEllipse, AddressOf MouseDownEllipse)
    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