Título da Dica: Determinando a classe de qualquer objeto
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
'Esta rotina imprime informações específicas de objetos
Public Sub PrintObjectInfo (YourObject As Object) If TypeOf YourObject Is CDesk then Print "Object Type: Mesa" Print "Número de pernas: " & YourObject.NumberOfLegs ElseIf TypeOf YourObject Is CHouse Then Print "Object Type: Casa" Print "Número de portas: " & YourObject.NumberOfDoors End If 'impressão das propriedades de mesmo nome Print "Data de Venda: " & YourObject.Date Print "Preço de Venda: " & YourObject.Price '... End Sub
