Make your own free website on Tripod.com
Volver a manejo de colores 1 Ir al Indice Ir a Barra de desplazamiento
2da.parte
Este ejercicio es solo para entender un poco mejor el manejo de diferentes colores y como combinarlos. Sinembargo debemos tener en cuenta que hay una forma de hacer casi lo mismo con mucho menos código como vermos próximamente mediante el manejo de barras de desplazamiento.
Cada color básico (rojo, verde y azul), cuenta con dos botones uno para aumentar la cantidad de color y el otro para reducirla. Así, encontraremos un botón RR (reducir rojo) y uno AR (aumentar rojo). De la misma forma habrá un RV y AV, también un RA y un AA Existe también la posibilidad de trabajar con niveles de blanco, pasando por toda la escala de grises hasta llegar al negro, para esto hay dos botones que llamaremos RG (reducir gris) y AG (aumentar gris). Cada conjunto de botones funciona junto a un cuadro de texto que llamaremos ir (rojo), iv (verde), ia (azul) e ig (gris). Estos cuadros de texto deberán expresar un valor comprendido entre 0 (sin color o negro) hasta 255 (máximo de color o blanco). Los cambios se producirán sobre el fondo (background) del propio formulario. Cuatro etiquetas nos indican los colores que maneja cada cuadro de texto.
Private Sub rr_Click()
ir.Text = Val(ir.Text) - 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub ar_Click()
ir.Text = Val(ir.Text) + 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub ir_Change()
If ir.Text < 0 Then
' de 0 a 255
ir.Text = 0
End If
If ir.Text > 255 Then
ir.Text = 255
End If
End Sub
Private Sub av_Click()
iv.Text = Val(iv.Text) + 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub rv_Click()
iv.Text = Val(iv.Text) - 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub ra_Click()
ia.Text = Val(ia.Text) - 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub iv_Change()'de 0 a 255
If iv.Text < 0 Then
iv.Text = 0
End If
If iv.Text > 255 Then
iv.Text = 255
End If
End Sub
Private Sub aa_Click()
ia.Text = Val(ia.Text) + 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub aa_Click()
ia.Text = Val(ia.Text) + 10
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub

'Para lograr que no se pasen de 0 o de 255
Private Sub ia_Change()
If ia.Text < 0 Then
ia.Text = 0
End If
If ia.Text > 255 Then
ia.Text = 255
End If
End Sub
Private Sub rg_Click()
If ia.Text < ig.Text Then
ig.Text = ia.Text
ElseIf iv.Text < ig.Text Then
ig.Text = iv.Text
ElseIf ir.Text < ig.Text Then
ig.Text = ir.Text
End If
ig.Text = Val(ig.Text) - 10
ia.Text = ig.Text
ir.Text = ig.Text
iv.Text = ig.Text
Form1.BackColor = RGB(Val(ir.Text), Val(iv.Text), Val(ia.Text))
End Sub
Private Sub ag_Click()
If ia.Text > ig.Text Then
ig.Text = ia.Text
ElseIf iv.Text > ig.Text Then
ig.Text = iv.Text
ElseIf ir.Text > ig.Text Then
ig.Text = ir.Text
End If
ig.Text = Val(ig.Text) + 10
ir.Text = ig.Text
ia.Text = ig.Text
iv.Text = ig.Text
Form1.BackColor = RGB(Val(ir.Text), Val(ia.Text), Val(iv.Text))
End Sub
Private Sub ig_Change() 'De 0 a 255
If ig.Text < 0 Then
ig.Text = 0
End If
If ig.Text > 255 Then
ig.Text = 255
End If
End Sub
En la próxima veremos Barras de Desplazamiento
Volver a manejo de colores 1 Ir al Indice Ir a Barra de desplazamiento