08/02/2010 Development / asp.net

Structure Pessoa

Private nome As String
Private idade As Integer
Private sexo As Sexualidade

Enum
Sexualidade
Masculino
Feminino
End Enum

Public Sub New(ByVal _nome As String, ByVal _idade As Integer, ByVal _sexo As Sexualidade)
nome = _nome
idade = _idade
sexo = _sexo
End Sub

Public Overloads Overrides Function ToString() As String
  
Return nome & " - " & idade.ToString() & " - " & sexo.ToString()
End Function

End Structure

Dim p As Pessoa = New Pessoa("Felipe Huggler", 26, Pessoa.Sexualidade.Masculino)
Response.Write(p)