<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
|
