Partilhar via


Como: Fazer um objeto seguir o ponteiro do mouse

Este exemplo mostra como alterar as dimensões de um objeto quando o ponteiro do mouse se move na tela.

O exemplo inclui um arquivo XAML (Extensible Application Markup Language) que cria a interface do usuário (UI) e um arquivo code-behind que cria o manipulador de eventos.

Exemplo

O XAML a seguir cria a interface do usuário, que consiste em um Ellipse dentro de um StackPanele anexa o manipulador de eventos para o evento MouseMove.

<Window x:Class="WCSamples.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="mouseMoveWithPointer"
    Height="400"
    Width="500"
    >
  <Canvas MouseMove="MouseMoveHandler"
          Background="LemonChiffon">
    <Ellipse Name="ellipse" Fill="LightBlue" 
             Width="100" Height="100"/>
  </Canvas>
</Window>

O código por trás seguinte cria o manipulador de eventos MouseMove. Quando o ponteiro do mouse se move, a altura e a largura do Ellipse são aumentadas e diminuídas.

// raised when the mouse pointer moves.
// Expands the dimensions of an Ellipse when the mouse moves.
private void MouseMoveHandler(object sender, MouseEventArgs e)
{
    // Get the x and y coordinates of the mouse pointer.
    System.Windows.Point position = e.GetPosition(this);
    double pX = position.X;
    double pY = position.Y;

    // Sets the Height/Width of the circle to the mouse coordinates.
    ellipse.Width = pX;
    ellipse.Height = pY;
}
' raised when the mouse pointer moves.
' Expands the dimensions of an Ellipse when the mouse moves.
Private Sub OnMouseMoveHandler(ByVal sender As Object, ByVal e As MouseEventArgs)

    'Get the x and y coordinates of the mouse pointer.
    Dim position As System.Windows.Point
    position = e.GetPosition(Me)
    Dim pX As Double
    pX = position.X
    Dim pY As Double
    pY = position.Y

    'Set the Height and Width of the Ellipse to the mouse coordinates.
    ellipse1.Height = pY
    ellipse1.Width = pX
End Sub

Ver também

  • Visão geral da entrada