USANDO ENUMERATION
Boa tarde!
Colegas,
Se tenho ,por exemplo uma simples função:
Public Function Teste (ByVal EstCivil As String) As Boolean
Select case EstCivil
Case is = [Ô]Casado[Ô]
Return True
Case else
Return False
End select
End Function
Como faço,para que :
Quando for executar esta função,no momento em que tiver de fornecer o parâmetro (EstCivil), seja exibida uma lista com as opções : Casado,Solteiro e Divorciado????
Colegas,
Se tenho ,por exemplo uma simples função:
Public Function Teste (ByVal EstCivil As String) As Boolean
Select case EstCivil
Case is = [Ô]Casado[Ô]
Return True
Case else
Return False
End select
End Function
Como faço,para que :
Quando for executar esta função,no momento em que tiver de fornecer o parâmetro (EstCivil), seja exibida uma lista com as opções : Casado,Solteiro e Divorciado????
Crie uma enumeração e use como tipo de dados da Função:
Exatamente dessa forma:
Observação: Todos os créditos são do KERPLUNK, eu apenas coloquei o código do método que ele apresentou.
Public Enum eEstadoCivil
Casado
Solteiro
Divorciado
End Enum
Public Function Teste(ByVal pEstadoCivil As eEstadoCivil) As Boolean
Select Case pEstadoCivil
Case eEstadoCivil.Casado
Return True
Case Else
Return False
End Select
End FunctionObservação: Todos os créditos são do KERPLUNK, eu apenas coloquei o código do método que ele apresentou.
Tópico encerrado , respostas não são mais permitidas