ESTE PROGRAMA FUE CRADO A TRAVES DEL VISUAL BASIC, EN ESTE PROGRAMA CREE LA FUNCION DOCOLOR QUE LE DARA COLOR A LA BARRA EN BLANCO (QUE AHORA E SAMARILLA DEBIDO A LA COMBINACION ENTRE EL ROJO Y EL VERDE)
PARA ESTE PROGRAMA SE CREARON LOS SIGUIENTES CONTROLES:
1 COMMANDBUTTON
3 LABEL
3 SCROLL BAR
las opciones o codigos que se introducen en los controles creados son los siguientes:
Private Sub Command1_Click()
End
End Sub
Doble clic sobre scroolbar y escriba:
Private Sub SBAZUL_Change()
SBAZUL_Scroll
End Sub
Private Sub SBAZUL_Scroll()
DOCOLOR
End Sub
Private Sub SBROJO_Change()
SBROJO_Scroll
End Sub
Private Sub SBROJO_Scroll()
DOCOLOR
End Sub
Private Sub SBVERDE_Change()
SBVERDE_Scroll
End Sub
Private Sub SBVERDE_Scroll()
DOCOLOR
End Sub
La función que creamos es la función DOCOLOR, escribimos entonces :
Private Sub DOCOLOR()
Text1.BackColor = RGB(SBROJO.Value, SBVERDE.Value, SBAZUL.Value)
End Sub
No hay comentarios:
Publicar un comentario