Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo hacer una paleta RGB

Cómo hacer una paleta RGB

El rojo, el verde y el azul son los tres colores primarios de la luz. Se producen varios colores a través de diferentes proporciones de estos tres colores primarios. La función RGB en Visual Basic funciona según el mismo principio que el anterior. La forma de la función es la siguiente: RGB(r,g,b). Entre ellos, r, g y b representan rojo, verde y azul respectivamente, y sus valores oscilan entre 0 y 255. Se pueden obtener varios colores ajustando los valores de r, g y b durante la programación.

Pero en programación específica, es difícil determinar los valores de r, g y b para obtener un determinado color de la nada. Entonces, el autor usó VB para compilar un programa de "paleta RGB", que resolvió mejor este problema. Este programa se puede utilizar como una pequeña herramienta para la selección de colores durante la programación.

Este programa utiliza tres controles de barra de desplazamiento horizontal, que se utilizan para ajustar los valores de r, g y b respectivamente. Sus propiedades Max se establecen en 255; devuelve r, g, el valor de b; un cuadro de imagen utilizado para devolver el color correspondiente. El procedimiento específico es el siguiente:

Cuando se ejecuta el programa, aparecerá una pantalla como la que se muestra en la figura. Al ajustar las tres barras de desplazamiento horizontales se devuelven los valores de r, gyb y los colores correspondientes.

Programa de paleta Rem RGB

Private Sub HScroll1_Change()

Imagen1_Click

Label1_Click

End Sub

Sub privado HScroll2_Change()

Imagen1_Click

Etiqueta2_Click

Fin Sub

Sub privado HScroll3_Change()

Imagen1_Click

Etiqueta3_Click

End Sub

Subetiqueta privada1_Click()

Etiqueta1.Caption = HScroll1.Value

End Sub

Sub privado Label2_Click()

Label2.Caption = HScroll2.Value

End Sub

Privado Sub Label3_Click()

Label3.Caption = HScroll3.Value

End Sub

Subimagen privada1_Click()

r = HScroll1. Valor

g = HScroll2.Value

b = HScroll3.Value

Imagen1.BackColor = RGB(r, g, b)

Fin Sub