Construtores:
Public Sub New(ByVal C As Single, ByVal L As Single)
Comprimento = C
Largura = L
End Sub
Vejamos um exemplo de utilização desta versão:
Dim R1 As New Retangulo(10, 5)
Este objeto R1 foi criado com o valor 10 no seu campo Comprimento e 5 no seu campo Largura.
Classes derivadas:


Sem comentários:
Enviar um comentário