VB.Net擴展類和結構？

Question

我想創建一個矩形結構的新屬性，因此，當我創建一個新的矩形，我將能夠指定一個額外的價值（除了默認的）

例如默認：

dim rect as new rectangle(x, y, width, height) 

我希望能夠聲明是這樣的：

dim rect as new rectangle (x, y, with, height, another_value as integer) 

我怎樣才能延長矩形結構，並添加一個新的構造？

Answer 1

您可以創建一個使用Rectangle結構的類。

Public Class MyRect 
Public Sub New({use your params for contructor}) 
    Rect = New Rectangle({initilize from params}) 
End Sub 
.... 
Public Property Rect As Rectangle 
'more properties as needed 
.... 

然後畫你的對象：

Dim _myRectObj As New MyRect({params for your constructor}) 
e.Graphics.DrawRectangle(_myRectObj.Rect, ....)