1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
<Serializable()> _
Public Class figureRectangle
Inherits Shapes.Shape
Dim m_largeur As Double
Dim m_hauteur As Double
Protected Overrides Function ShouldSerializeProperty(ByVal dp As System.Windows.DependencyProperty) As Boolean
Return MyBase.ShouldSerializeProperty(dp)
End Function
Public Sub New()
End Sub
Public Sub New(ByVal xwidth As Double, ByVal xheight As Double)
Me.m_largeur = xwidth
Me.m_hauteur = xheight
End Sub
Public Sub New(ByVal xrect As Rect)
Me.m_largeur = xrect.Width
Me.m_hauteur =xrect.Height
End Sub
Public Property Largeur() As Double
Get
Return m_largeur
End Get
Set(ByVal value As Double)
m_largeur = value
End Set
End Property
Public Property Hauteur() As Double
Get
Return m_hauteur
End Get
Set(ByVal value As Double)
m_hauteur = value
End Set
End Property
Protected Overrides ReadOnly Property DefiningGeometry() As System.Windows.Media.Geometry
Get
Dim monRect = New Rect(0, 0, Largeur, Hauteur)
Dim fig As System.Windows.Media.RectangleGeometry = New System.Windows.Media.RectangleGeometry
fig.Rect = monRect
Return fig
End Get
End Property
End Class |
Partager