El contenido de una enumeración se puede recorrer capturando primero el contenido mediante la siguiente línea.
' Se captura los códigos
Valores = System.Enum.GetValues(GetType(Monedas))
' Se captura los nombres
Nombres = System.Enum.GetNames(GetType(Monedas))
Para ello hay que declarar las variables Valores y Nombres del tipo Array
Dim Valores As Array
Dim Nombres As Array
Como el recorrido se hará basándose en un bucle del tipo
For each variable in Colección
La variable en este caso deberá ser del tipo String
Dim item As String
Una vez que disponemos de todos los elementos, ya podemos ejecutar el bucle, primero el de código.
' Se pasa al vector los códigos
X = 0
For Each item In Valores
V(X).Codigo = CInt(item)
X = X + 1
Next
Y otro bucle para los nombres, el orden de ejecución de los bucles es indistinto.
' Se pasa al vector los nombres
X = 0
For Each item In Nombres
V(X).Denom = item
X = X + 1
Next
Y ya disponemos del contenido de la enumeración en un vector, para el uso que deseemos.
El uso de una enumeración se convierte en imprescindible si se desea un programa ordenado y claro.
No tiene sentido el uso de valores enteros en un programa, cuando se pueden sustituir por descripciones, que siempre reducirá el número de posibles errores.
 Ejercicios propuestos de la Unidad |
© Antonio Arjona Cornejo. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic S.L.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies