Shape.PointToScreen-Methode

Artikel
08/23/2008

Aktualisiert: November 2007

Berechnet die Position des angegebenen Clientpunkts in Bildschirmkoordinaten.

Namespace: Microsoft.VisualBasic.PowerPacks
Assembly: Microsoft.VisualBasic.PowerPacks.Vs (in Microsoft.VisualBasic.PowerPacks.Vs.dll)

Syntax

Public Function PointToScreen ( _
    p As Point _
) As Point

Dim instance As Shape
Dim p As Point
Dim returnValue As Point

returnValue = instance.PointToScreen(p)

public Point PointToScreen(
    Point p
)

public:
Point PointToScreen(
    Point p
)

public function PointToScreen(
    p : Point
) : Point

Parameter

p
Typ: System.Drawing.Point

Der zu konvertierende Point der Clientkoordinaten.

Rückgabewert

Typ: System.Drawing.Point

Point, der den konvertierten Pointp in Bildschirmkoordinaten darstellt.

Beispiele

Im folgenden Beispiel wird veranschaulicht, wie Sie mit den Methoden PointToScreen und RectangleToScreen die Farbe von RectangleShape ändern, wenn das Ziehen über dem Clientbereich endet. Für dieses Beispiel müssen Sie über ein RectangleShape-Steuerelement mit dem Namen RectangleShape1 auf einem Formular verfügen, und die zugehörige BackStyle-Eigenschaft muss auf Opaque festgelegt sein.

Public isDrag As Boolean = True
Public theRectangle As System.Drawing.Rectangle

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As  _
  System.Windows.Forms.MouseEventArgs) Handles _
  RectangleShape1.MouseMove

    ' If the mouse is being dragged, undraw and redraw the rectangle
    ' while the mouse moves.
    If (isDrag) Then

        ' Hide the previous rectangle by calling the
        ' DrawReversibleFrame method, using the same parameters.
        ControlPaint.DrawReversibleFrame(theRectangle, Me.BackColor, _
          FrameStyle.Dashed)

        ' Calculate the endpoint and dimensions for the new rectangle, 
        ' again by using the PointToScreen method.
        Dim startPoint As Point = New Point(RectangleShape1.Width, _
         RectangleShape1.Height)
        Dim endPoint As Point = RectangleShape1.PointToScreen(New Point(e.X, e.Y))
        Dim width As Integer = endPoint.X - startPoint.X
        Dim height As Integer = endPoint.Y - startPoint.Y
        theRectangle = New Rectangle(startPoint.X, startPoint.Y, _
         width, height)

        ' Draw the new rectangle by calling DrawReversibleFrame again.  
        ControlPaint.DrawReversibleFrame(theRectangle, Me.BackColor, _
          FrameStyle.Dashed)
    End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As  _
  System.Windows.Forms.MouseEventArgs) Handles RectangleShape1.MouseUp

    ' If the MouseUp event occurs, the user is not dragging.
    isDrag = False
    ' Draw the rectangle to be evaluated. Set a dashed frame style 
    ' by using the FrameStyle enumeration.
    ControlPaint.DrawReversibleFrame(theRectangle, Me.BackColor, _
      FrameStyle.Dashed)
    ' Find out which controls intersect the rectangle, and change
    ' their colors.
    ' The method uses the RectangleToScreen method to convert the 
    ' control's client coordinates to screen coordinates.
    Dim controlRectangle As Rectangle

    controlRectangle = RectangleShape1.RectangleToScreen _
      (RectangleShape1.ClientRectangle)
    If controlRectangle.IntersectsWith(theRectangle) Then
        RectangleShape1.BackColor = Color.BurlyWood
    End If

    ' Reset the rectangle.
    theRectangle = New Rectangle(0, 0, 0, 0)
End Sub

public bool isDrag = true;
public System.Drawing.Rectangle theRectangle;

private void Form1_MouseMove(object sender, System.Windows.Forms.MouseEventArgs e)
{

    // If the mouse is being dragged, undraw and redraw the rectangle
    // while the mouse moves.
    if (isDrag)

    // Hide the previous rectangle by calling the
    // DrawReversibleFrame method, using the same parameters.
    {
        ControlPaint.DrawReversibleFrame(theRectangle, this.BackColor, FrameStyle.Dashed);

        // Calculate the endpoint and dimensions for the new rectangle, 
        // again by using the PointToScreen method.
        Point startPoint = new Point(rectangleShape1.Width, rectangleShape1.Height);
        Point endPoint = rectangleShape1.PointToScreen(new Point(e.X, e.Y));
        int width = endPoint.X - startPoint.X;
        int height = endPoint.Y - startPoint.Y;
        theRectangle = new Rectangle(startPoint.X, startPoint.Y, width, height);

        // Draw the new rectangle by calling DrawReversibleFrame again.  
        ControlPaint.DrawReversibleFrame(theRectangle, this.BackColor, FrameStyle.Dashed);
    }
}

private void Form1_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
{

    // If the MouseUp event occurs, the user is not dragging.
    isDrag = false;
    // Draw the rectangle to be evaluated. Set a dashed frame style 
    // by using the FrameStyle enumeration.
    ControlPaint.DrawReversibleFrame(theRectangle, this.BackColor, FrameStyle.Dashed);
    // Find out which controls intersect the rectangle, and change
    // their colors.
    // The method uses the RectangleToScreen method to convert the 
    // control's client coordinates to screen coordinates.
    Rectangle controlRectangle;

    controlRectangle = rectangleShape1.RectangleToScreen(rectangleShape1.ClientRectangle);
    if (controlRectangle.IntersectsWith(theRectangle))
    {
        rectangleShape1.BackColor = Color.BurlyWood;
    }

    // Reset the rectangle.
    theRectangle = new Rectangle(0, 0, 0, 0);
}

Berechtigungen

Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.