Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

SOLUCIONADO Código para usar un determinado color
#1

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?
    ¡Gracias!
#2

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
  1. dim miPanel as panel
  2.  
  3. Dialog.SelectColor()
  4. 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:
  • YuHi
    ¡Gracias!
#3

(20-02-2022, 05:40)YuHi escribió:  poner un color en forma hexagesimal

...de manera habitual:

GAMBAS
  1. Me.Background = &1F12AE6



"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:
  • YuHi
    ¡Gracias!
#4

Si ejecutas este código, en un programa gráfico, te dará todas las opciones. 

GAMBAS
  1. VBox1 As VBox
  2. VBox2 As VBox
  3. Splitter1 As Splitter
  4. Label1 As Label
  5. Label2 As Label
  6. Label3 As Label
  7. ColorChooser1 As ColorChooser
  8.  
  9. Public Sub ColorChooser1_Change()
  10.  
  11.   Dim hColorInfo As ColorInfo
  12.  
  13.   Me.Background = ColorChooser1.Value
  14.   hColorInfo = Color[ColorChooser1.Value]
  15.  
  16.   Label1.Text = "Me.Background = " & Str(ColorChooser1.Value)
  17.   Label2.Text = "Me.Background = &h" & Str(Hex(ColorChooser1.Value))
  18.   Label3.Text = "Me.Background = Color.RGB(" & Str(hColorInfo.Red) & "," & Str(hColorInfo.Green) & "," & Str(hColorInfo.Blue) & ")"
  19.  
  20.  
  21. Public Sub Form_Open()
  22.  
  23.   Me.H = 400
  24.   Me.W = 800
  25.   Me.Arrangement = Arrange.Vertical
  26.   Me.Padding = 5
  27.   Me.Text = "Color"
  28.  
  29.   Splitter1 = New Splitter(Me)
  30.   Splitter1.Expand = True
  31.   Splitter1.Spacing = True
  32.  
  33.   VBox1 = New VBox(Splitter1)
  34.   VBox1.Expand = True
  35.  
  36.   VBox2 = New VBox(Splitter1)
  37.   VBox2.Expand = True
  38.  
  39.   Label1 = New Label(VBox1)
  40.   Label1.Font.Bold = True
  41.   Label1.H = 28
  42.  
  43.   Label2 = New Label(VBox1)
  44.   Label2.Font.Bold = True
  45.   Label2.H = 28
  46.  
  47.   Label3 = New Label(VBox1)
  48.   Label3.Font.Bold = True
  49.   Label3.H = 28
  50.  
  51.   ColorChooser1 = New ColorChooser(VBox2) As "ColorChooser1"
  52.   ColorChooser1.Expand = True
  53.  
  54.   Splitter1.Layout = [40, 60]
  55.   ColorChooser1.Value = 28900000
  56.  



[Imagen: Colors.png]
[-] Los siguientes 1 usuarios dice gracias a cogier por este post:
  • YuHi
    ¡Gracias!
#5

Gracias por sus atenciones, estudiaré las diferentes opciones, ya les comentaré como me fue.
    ¡Gracias!


Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)