Jak sprawić, aby obiekt podążał za wskaźnikiem myszy

  • Artykuł

W tym przykładzie pokazano, jak zmienić wymiary obiektu, gdy wskaźnik myszy porusza się na ekranie.

W tym przykładzie znajduje się plik Extensible Application Markup Language (XAML), który tworzy interfejs użytkownika (UI) i plik za kodem, który tworzy procedurę obsługi zdarzeń.

Przykład

Poniższy kod XAML tworzy interfejs użytkownika, który składa się z wewnątrz Ellipse elementu StackPaneli dołącza program obsługi zdarzeń dla MouseMove zdarzenia.

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

Poniższy kod za pomocą metody tworzy procedurę MouseMove obsługi zdarzeń. Gdy wskaźnik myszy porusza się, wysokość i szerokość Ellipse są zwiększane i zmniejszane.

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

Zobacz też