Comment faire une boucle à travers des points dans un system.drawing.rectangle dans vb.net

Question

Vous cherchez quelque chose comme:

rect dim comme system.drawing.rectangle

Pour chaque point rect Debug.Print (point.name, point.value) Suivant

Answer 1

Vous pouvez écrire une méthode d'extension qui vous renvoie un tableau des points que vous souhaitez. Je ne fais pas vraiment VB, mais un exemple en C# serait quelque chose comme ...

public static class RectangleExtensions 
{ 
    public static Point[] GetPoints(this Rectangle rect) 
    { 
     return new Point[] 
     { 
      new Point(rect.Left, rect.Top), 
      new Point(rect.Right, rect.Top), 
      new Point(rect.Right, rect.Bottom), 
      new Point(rect.Left, rect.Bottom) 
     }; 
    } 
} 

public class example 
{ 
    public void ExampleMethod() 
    { 
     Rectangle rect = new Rectangle(); 
     foreach (Point point in rect.GetPoints()) 
      Console.WriteLine(point.ToString()); 
    } 
} 

Answer 2

Function GetAllPoints(ByVal r As Rectangle) As Point() 
    Return { _ 
    New Point(r.Left, r.Top), _ 
    New Point(r.Right, r.Top), _ 
    New Point(r.Left, r.Bottom), _ 
    New Point(r.Right, r.Bottom) _ 
    } 
End Function 

(Suite de la ligne ajoutée à soutenir les anciennes versions de VB.NET)