Mensaje enviado por "Alberto AVernieri" <AVernieri@juncalnet.com.ar>
Hola!
Definí en un área común (Seccion Declaraciones de un módulo o Form) estas estructuras
Public Type ColorCommonDialog
colCD as Long
End Type
Public Type ColorRGB
System as Byte
Red as Byte
Green as Byte
Blue as Byte
End Type
En el lugar de tu código donde quieras hacer la conversión...
Dim cCD as ColorCommonDialog, cRGB as ColorRGB
cCD.colCD = MiColor
LSet cRGB = cCD
MiRojo = cRGB.Red
MiVerde = cRGB.Green
MiAzul = cRGB.Blue
Luego de esto, MiColor queda igual a RGB(MiRojo, MiVerde, MiAzul)
Si lo queres hacer a mano al reves...
cRGB.Red = AlgunRojo
cRGB.Green = AlgunVerde
cRGB.Blue = AlgunAzul
LSet cCD = cRGB
Luego de esto, cCD.colCD queda igual a RGB(AlgunRojo, AlgunVerde, AlgunAzul)
Saludos
Alberto
>>> "Juan Carlos Canto" <jcarlos@abserver.es> 14/08/00 13:00 >>>
Hola a todos:
Llevo un par de dias loco intentando pasar a valores RGB Ejem: 255,0,0 el
valor que me da el commondialog.color que es un valor del tipo "16785692"
¿sabeis alguno como convertirlo a RGB?
gracias
Juan Carlos