La programación VB utiliza tres barras de desplazamiento para controlar la cantidad de rojo, verde y azul y cambiar el color de fondo de un marco de imagen. Los valores de cantidad de color de rojo, verde y azul se muestran en las etiquetas superiores respectivamente.

1 etiqueta1 1 imagen1 3 HScroll1 HScroll2 HScroll3

Sub privado Form_Load()

Imagen1.BackColor = RGB(0, 0, 0)

HScroll1.Max = 255

HScroll2.Max = 255

HScroll3.Max = 255

Label1.AutoSize = Verdadero

Label1.Caption = ""

End Sub

Sub privado HScroll1_Change()

Imagen1.BackColor = RGB(HScroll1.Value, HScroll2. Valor, HScroll3 .Value)

Label1.Caption = "Rojo:" HScroll1.Value amp; vbCrLf amp; "Verde:" HScroll2.Value amp; Valor

End Sub

Sub privado HScroll2_Change()

Imagen1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

Label1.Caption = "Rojo:" HScroll1.Value amp; vbCrLf amp; "Verde:" HScroll2.Value amp; p> p>

End Sub

Sub privado HScroll3_Change()

Imagen1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

Label1.Caption = "Rojo:" HScroll1.Value amp; vbCrLf amp; "Verde:" HScroll2.Value amp; >Fin Sub