visual basic 2010 broncode voorbeelden

MustInherit Class Figure
    Private m_Color As String
    Public Property Color() As String
        Get
            Color = m_Color
        End Get
        Set(ByVal value As String)
            m_Color = value
        End Set
    End Property
    Protected Sub New(ByVal color As String)
        Me.Color = color
    End Sub
End Class
Class Rectangle : Inherits Figure
    Private m_Height As Double
    Public Property Height() As Double
        Get
            Height = m_Height
        End Get
        Set(ByVal value As Double)
            m_Height = value
        End Set
    End Property
    Private m_Width As Double
    Public Property Width() As Double
        Get
            Width = m_Width
        End Get
        Set(ByVal value As Double)
            m_Width = value
        End Set
    End Property
    Public Sub New(ByVal color As String, _
                   ByVal height As Double, ByVal width As Double)
        MyBase.New(color)
        Me.Height = height
        Me.Width = width
    End Sub
End Class
Class Circle : Inherits Figure
    Private m_Radius As Double
    Public Property Radius() As Double
        Get
            Radius = m_Radius
        End Get
        Set(ByVal value As Double)
            m_Radius = value
        End Set
    End Property
    Public Sub New(ByVal color As String, _
                   ByVal radius As Double)
        MyBase.New(color)
        Me.Radius = radius
    End Sub
End Class
Class Example
    Public Shared Sub Main()
        Dim rectangle1 As Rectangle = New Rectangle("red", 10, 20)
        Dim circle1 As Circle = New Circle("yellow", 15)
    End Sub
End Class