Usando Enumeração no Visual Basic

A enumeração é um novo recurso disponível a partir do VB 5.0 que fornece uma forma conveniente de tratar um conjunto relacionado de constantes e de associar os valores destas constantes com os nomes atribuídos a elas.

Você pode declarar uma enumeração para um conjunto de constantes inteiras associadas com os dias da semana e usar os nomes dos dias no código de forma a tornar o seu código mais claro e fácil de manter. A sintaxe usada é a seguinte:

   Public ( Private ) Enum Nome_da_Enumeração
	Enumeração_1
	Enumeração_1
	Enumeração_1
	Enumeração_1
	...
	Enumeração_1
   End Enum
 
 Public Enum DiaSemana
    Domingo
    Segunda
    Terça
    Quarta
    Quinta
    Sexta
    Sabado
 End Enum

Sintaxe da Enumeração

Exemplo

O valor da primeira constante na enumeração é iniciada com zero , e as constantes subsequentes são iniciadas com o valor da constante anterior acrescidas de uma unidade. Assim no exemplo acima as constantes para a enumeração DiaSemana apresentam os seguintes valores : Domingo tem o valor 0 , Segunda o valor 1 e assim por diante.

Podemos atribuir valores para as constantes em uma enumeração usando a atribuição padrão do Visual Basic, usando qualquer valor inteiro Longo, inclusivo número negativos. No caso do exemplo abaixo alteramos o nome da Enumeração e atribuímos valores as suas constantes :

 Public Enum DiasUteis
    Domingo
    Segunda = 0
    Terça
    Quarta
    Quinta
    Sexta
    Sabado
    Invalido = -1 
 End Enum
		
Neste caso atribuímos o valor zero para a constante Segunda.
O valor da constante Domingo é igual a zero pois não foi iniciada e é a primeira constante.
O valor da constante Terca é 1 , Quarta é 2 , e assim por diante.
O valor atribuído a constante Invalida é -1.

Observe que usamos duas enumerações com nomes diferentes e constantes iguais. Temos duas enumerações : DiaSemana e DiasUteis. Para evitar ambiguidades nestes casos podemos qualificar o nome da constante usando o nome de sua enumeração. Assim :

Debug.Print "DiaSemana.Domingo = " & DiaSemana.Domingo
Debug.Print "DiasUteis.Domingo = " & DiasUteis.Domingo

Depois que declaramos um Tipo Enumeração podemos declarar variáveis deste tipo usando a variável para armazenar os valores das constantes da enumeração. Assim o código a seguir usa a variável do tipo DiasUteis para armazenar valores inteiros associados com as constentes da enumeração DiaSemana.

Dim MeuDia As DiasUteis
MeuDia = Domingo            ' Domingo tem valor igual a 0.
If MeuDia < Segunda Then    ' Segunda e igual a 1 so Visual Basic displays a message box.
   MsgBox " Dia não útil !!"
End If
Após declarar a enumeração ao digitar o código o Visual Basic automaticamente exibe as constantes da enumeração conforme exibido na figura ao lado. 
Até a próxima...
Veja os Destaques e novidades do SUPER DVD Visual Basic  (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C#  com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

Veja também os Cursos com vídeo aulas e projetos exemplos:

    Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti