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
Voltar