CRIACAO PERSONALIZADA DE UMA FUNCAO

MARCOS 16/11/2010 17:30:24
#357596
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?????
JONATHANSTECKER 16/11/2010 17:37:14
#357597
Resposta escolhida
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
ESLEYSANCHES 16/11/2010 17:42:46
#357598
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