Seleccion de los colores en una aplicacion VB.net

Amiga prueba este código:



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

ColorDialog1.ShowDialog()

Dim Valor As String = ColorDialog1.Color.ToString()

MessageBox.Show(Valor)





End Sub


Saludos cordiales,
Ángel Ruiz
[MS Visual Basic Developer MVP]
Caracas - Venezuela

"El conocimiento es un bien, que crece a medida que se comparte"

"Mirtha" wrote in message
news:772301c47674$692ac0f0$
Estoy utilizando en una aplicación VB.net ColorDialog para
darle posibilidad al usuario a seleccionar el color con el
que desea resaltar el resultado de una consulta. Este
color es guardado en un fichero y guardo el nombre del
mismo, pero resulta que algunos colores tienen como nombre
por ejemplo ffff8040, en estos casos al recuperar este
dato y convertirlo me da el siguiente error:
ffff8040 no es un valor válido para Int32.

Para convertir el nombre del color a color utilizo la
siguiente sentencia:
CType(TypeDescriptor.GetConverter(GetType
(Color)).ConvertFromString(consultapre.color), Color)
Esta sentencia no me da problema con los nombres de color
como Yellow, Black, Magenta, etc, solo me da problemas con
los que reportan como nombre en formato diferente como el
que expuso arriba.

Por favor si saben que hacer, hagamenlo saber, he tratado
de que aparezca en la paleta de colores solo los que me
reportan los nombres de los colores normales pero no lo he
conseguido, como no he resuelto la conversión de los otros
tipos de nombres.

No entiendo si necesitas mostrar el nombre del color(??),
no vas a poder hacer eso para todos los colores, si
utilizas el ConvertFromString en la mayoria el String va
a ser "A(100),R(127),G(40),B(127)", o &HAARRGGBB por
ejemplo, solo para algunos hay un nombre predeterminado
como "Blue", "Red" etc. Ahora, si no necesitas el nombre
del color no veo el problema, solo guarda el valor
numerico (argb) del color utilizando Color.ToArgb eso te
da un entero, por ejemplo -2983920, cuando quieras cargar
el color solamente usas Color.FromArgb(-2983920)

Dim N as integer = COlor.ToArgb

MiColor as Color = Color.FromArgb(N)

Ciao

AJPB

Estoy utilizando en una aplicación VB.net ColorDialog

para

darle posibilidad al usuario a seleccionar el color con

el

que desea resaltar el resultado de una consulta. Este
color es guardado en un fichero y guardo el nombre del
mismo, pero resulta que algunos colores tienen como

nombre

por ejemplo ffff8040, en estos casos al recuperar este
dato y convertirlo me da el siguiente error:
ffff8040 no es un valor válido para Int32.

Para convertir el nombre del color a color utilizo la
siguiente sentencia:
CType(TypeDescriptor.GetConverter(GetType
(Color)).ConvertFromString(consultapre.color), Color)
Esta sentencia no me da problema con los nombres de

color

como Yellow, Black, Magenta, etc, solo me da problemas

con

los que reportan como nombre en formato diferente como

el

que expuso arriba.

Por favor si saben que hacer, hagamenlo saber, he

tratado

de que aparezca en la paleta de colores solo los que me
reportan los nombres de los colores normales pero no lo

he

conseguido, como no he resuelto la conversión de los

otros

tipos de nombres.
.