Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Mouse Position

<Grid    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"   xmlns:d="http://schemas.microsoft.com/expression/interactivedesigner/2006"   mc:Ignorable="d"   x:Class="InputExamples.MousePosition"    Width="640" Height="480">   <Label d:LayoutOverrides="Height" x:Name="firstCoordinates"/>   <Rectangle Stroke="#FF000000" Fill="#FFFFFFFF" x:Name="Rectangle"/>   <Ellipse Stroke="#FF000000" Fill="#FFFFFFFF" x:Name="secondEllipse"/>   <Ellipse d:LayoutOverrides="Height" Stroke="#FF000000" Width="14" Height="14" x:Name="firstEllipse"/>   <Ellipse d:LayoutOverrides="Width" Stroke="#FF000000" Width="14" Height="14" x:Name="fourthEllipse"/>   <Ellipse d:LayoutOverrides="Width" Stroke="#FF000000" Width="14" Height="14" x:Name="thirdEllipse"/>   <Label d:LayoutOverrides="Width, Height" Width="66" Height="22" x:Name="secondCoordinates"/>   <Label d:LayoutOverrides="Width, Height" Width="66" Height="22" x:Name="thirdCoordinates"/>   <Label d:LayoutOverrides="Width, Height" Width="66" Height="22" x:Name="fourthCoordinates"/>   <Ellipse Fill="Red" Width="16" Height="16" x:Name="DragEllipse"/> </Grid> //File:Window.xaml.vb Imports System Imports System.Net Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Animation Imports System.Windows.Navigation Imports System.Windows.Shapes Namespace InputExamples   Public Partial Class MousePosition     Private ellipseTransform As New TranslateTransform()     Public Sub New()       Me.InitializeComponent()     End Sub     Protected Overrides Sub OnInitialized(e As EventArgs)       MyBase.OnInitialized(e)       DragEllipse.RenderTransform = ellipseTransform       AddHandler CompositionTarget.Rendering, AddressOf Me.CompositionTarget_Rendering     End Sub     Private Sub CompositionTarget_Rendering(sender As Object, e As EventArgs)       Dim mouse1 As Point = Mouse.GetPosition(firstEllipse)       Dim mouse2 As Point = Mouse.GetPosition(secondEllipse)       Dim mouse3 As Point = Mouse.GetPosition(thirdEllipse)       Dim mouse4 As Point = Mouse.GetPosition(fourthEllipse)       firstCoordinates.Content = mouse1.ToString()       secondCoordinates.Content = mouse2.ToString()       thirdCoordinates.Content = mouse3.ToString()       fourthCoordinates.Content = mouse4.ToString()       Dim position As Point = Mouse.GetPosition(DragEllipse)       ellipseTransform.X += position.X - (DragEllipse.Width / 2)       ellipseTransform.Y += position.Y - (DragEllipse.Height / 2)     End Sub   End Class End Namespace