CRIACAO PERSONALIZADA DE UMA FUNCAO
Boa tarde pessoal!
Se algum colega puder esclarecer: ( VB.NET)
Digamos que eu tenha uma função simples:
Public Function Informar_Cor ( ByVal Cor As String ) As String
Select case Cor
Case is = [Ô]Verde[Ô]
Msgbox( [Ô] A cor é verde[Ô] )
Case else
End select
End Function
A dúvida:
é possÃvel fazer com que quando esta função for ser chamada, o desenvolvedor ao escrever:
InformarCor(
seja exibida para ele,uma lista das cores válidas ( Verde,Amarelo e vermelho ,por exemplo)
para que ele colocar como parâmetro somente as cores disponiveis?????
Se algum colega puder esclarecer: ( VB.NET)
Digamos que eu tenha uma função simples:
Public Function Informar_Cor ( ByVal Cor As String ) As String
Select case Cor
Case is = [Ô]Verde[Ô]
Msgbox( [Ô] A cor é verde[Ô] )
Case else
End select
End Function
A dúvida:
é possÃvel fazer com que quando esta função for ser chamada, o desenvolvedor ao escrever:
InformarCor(
seja exibida para ele,uma lista das cores válidas ( Verde,Amarelo e vermelho ,por exemplo)
para que ele colocar como parâmetro somente as cores disponiveis?????
Usando o Enum sim!
Public Enum eCores
Azul
Verde
Amarelo
Preto
Branco
End Enum
Public Sub InformarCor(ByVal Cor As eCores)
Select Case Cor
Case eCores.Azul
MsgBox([Ô]A cor é Azul[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Verde[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Amarelo[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Preto[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Branco[Ô])
Case Else
MsgBox([Ô]Essa cor não existe[Ô])
End Select
End Sub
Citação::
Usando o Enum sim!Public Enum eCores
Azul
Verde
Amarelo
Preto
Branco
End Enum
Public Sub InformarCor(ByVal Cor As eCores)
Select Case Cor
Case eCores.Azul
MsgBox([Ô]A cor é Azul[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Verde[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Amarelo[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Preto[Ô])
Case eCores.Amarelo
MsgBox([Ô]A cor é Branco[Ô])
Case Else
MsgBox([Ô]Essa cor não existe[Ô])
End Select
End Sub
Mais que respondido !!!
Boa resposta !!
Tópico encerrado , respostas não são mais permitidas