Resumen Pasar a RGB color CommonDialog

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



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com