Array de Colores

Oscar wrote:

Hola

como puedo crear un array de colores es decir de
tipos "color".

Saludos

¿Te refieres a Dim Colores() As System.Drawing.Color ?

Saludos,
Alex
[MS-MVP Visual Basic]

Si, un array de System.Drawing.Color

Oscar wrote:

Hola

como puedo crear un array de colores es decir de
tipos "color".

Saludos

¿Te refieres a Dim Colores() As System.Drawing.Color ?

Saludos,
Alex
[MS-MVP Visual Basic]


.

La siguiente funcion te retorna un arreglo con todos los colores definidos
dentro de la estructura System.Drawing.Color:


Function ObtenerArregloColores() As Color()
Dim colores() As Color
Dim infoCampos As PropertyInfo()
Dim tipoColor As Type = GetType(Color)
Dim i As Integer

infoCampos = tipoColor.GetProperties(BindingFlags.Public Or
BindingFlags.Static)

If infoCampos.Length > 0 Then
ReDim colores(infoCampos.Length - 1)

For i = 0 To infoCampos.Length - 1
colores(i) = Color.FromName(infoCampos(i).Name)
System.Diagnostics.Debug.WriteLine(infoCampos(i).Name)
Next
End If

Return colores
End Function



Saludos
Pedro Luna, [MVP VB.NET]
Gye, Ecu

Toma ya !! Viva Reflection !!

Saludos desde Madrid:

Jesús López
MVP Visual Basic
Mentor Asociado Solid Quality Learning
www.solidqualitylearning.com

Toma ya !! Viva Reflection !!

Si, viva Reflection! Pero en este caso no hace falta porque se puede tomar
los colores de la enumeracion KnownColor:

Function ObtenerArregloColores() As Color()

Dim kc() As KnownColor = [Enum].GetValues(GetType(KnownColor))
Dim colores(kc.Length - 1) As Color

For i As Integer = 0 To kc.Length - 1
colores(i) = Color.FromKnownColor(kc(i))
Next

Return colores

End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo