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