Mensajes: 7
Temas: 4
Gracias Recibidas: 0 en 0 posts
Gracias Dadas: 7
Registro en: Jan 2022
20-02-2022, 05:40
(Última modificación: 04-03-2022, 03:21 por
YuHi.)
Buen día. Mi pregunta es acerca de los colores que no son los predeterminados.
Cuando quiero poner color azul el fondo puedo utilizar
Me.Background = Color.blue
o bien Color.green etcétera. Pero si quiero un color que no sean esos cómo puedo obtener el equivalente numérico. Por ejemplo, si pongo
Me.Background = 32582374
éste equivale un color rosa. Pero, ¿cómo puedo saber qué número debo poner para obtener un color en especial? o bien, ¿cómo se puede poner un color en forma hexagesimal, o RGB?
Mensajes: 590
Temas: 58
Gracias Recibidas: 187 en 123 posts
Gracias Dadas: 193
Registro en: Jul 2020
La forma más simple es usar un diálogo de seleccionar color, que te devuelve ya el número del color elegido. Para usarlo tendrás que añadir el componente gb.Form.Dialog a tu proyecto.
GAMBAS
miPanel.
Background = dialog.
Color
Si lo quieres hacer todo vía código, tienes el método RGB que te devuelve el número a partir de los tres primarios, y HSV, MERGE, Lighter, Darker, etc. para las distintas conversiones.
Saludos.
No podemos regresar
Los siguientes 1 usuarios dice gracias a Shordi por este post:1 usuarios dice Gracias! a Shordi por este post
• YuHi
Mensajes: 280
Temas: 27
Gracias Recibidas: 44 en 35 posts
Gracias Dadas: 8
Registro en: Jul 2020
20-02-2022, 15:35
(Última modificación: 20-02-2022, 15:40 por
vuott.)
(20-02-2022, 05:40)YuHi escribió: poner un color en forma hexagesimal
...de manera habitual:
"Los horizontes perdidos nunca regresan. " (F. Battiato, La stagione dell'amore, 1983)
"Las ondas nunca regresan. " (Genesis: Ripples - A trick of the tail, 1976)
Los siguientes 1 usuarios dice gracias a vuott por este post:1 usuarios dice Gracias! a vuott por este post
• YuHi
Mensajes: 106
Temas: 2
Gracias Recibidas: 68 en 45 posts
Gracias Dadas: 3
Registro en: Jul 2020
Si ejecutas este código, en un programa gráfico, te dará todas las opciones.
GAMBAS
Dim hColorInfo
As ColorInfo
Me.
Background = ColorChooser1.
Value hColorInfo = Color[ColorChooser1.Value]
Label1.
Text = "Me.Background = " & Str(ColorChooser1.
Value) Label2.
Text = "Me.Background = &h" & Str(Hex(ColorChooser1.
Value)) Label3.
Text = "Me.Background = Color.RGB(" & Str(hColorInfo.
Red) & "," & Str(hColorInfo.
Green) & "," & Str(hColorInfo.
Blue) & ")"
Me.
Arrangement = Arrange.
Vertical
Splitter1
= New Splitter
(Me)
Label1.H = 28
Label2.H = 28
Label3.H = 28
ColorChooser1.
Expand = True
Splitter1.Layout = [40, 60]
ColorChooser1.Value = 28900000
Los siguientes 1 usuarios dice gracias a cogier por este post:1 usuarios dice Gracias! a cogier por este post
• YuHi
Mensajes: 7
Temas: 4
Gracias Recibidas: 0 en 0 posts
Gracias Dadas: 7
Registro en: Jan 2022
Gracias por sus atenciones, estudiaré las diferentes opciones, ya les comentaré como me fue.