Cito la practica:
Citar:
Eso es básicamente lo que hace, aquí dejo mi código (Lo mejore)
R AS Byte
G AS Byte
B AS Byte
PUBLIC SUB Rojo_Change()
VRojo.Value = Rojo.Value
Cambio
END
PUBLIC SUB Verde_Change()
VVerde.Value = Verde.Value
Cambio
END
PUBLIC SUB Azul_Change()
VAzul.Value = Azul.Value
Cambio
END
PUBLIC SUB Cambio()
R = Rojo.Value
G = Verde.Value
B = Azul.Value
IF Muestra1.Value = TRUE
Muestra1.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra2.Value = TRUE
Muestra2.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra3.Value = TRUE
Muestra3.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra4.Value = TRUE
Muestra4.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra5.Value = TRUE
Muestra5.BackColor = Color.RGB(R, G, B)
ENDIF
END
G AS Byte
B AS Byte
PUBLIC SUB Rojo_Change()
VRojo.Value = Rojo.Value
Cambio
END
PUBLIC SUB Verde_Change()
VVerde.Value = Verde.Value
Cambio
END
PUBLIC SUB Azul_Change()
VAzul.Value = Azul.Value
Cambio
END
PUBLIC SUB Cambio()
R = Rojo.Value
G = Verde.Value
B = Azul.Value
IF Muestra1.Value = TRUE
Muestra1.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra2.Value = TRUE
Muestra2.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra3.Value = TRUE
Muestra3.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra4.Value = TRUE
Muestra4.BackColor = Color.RGB(R, G, B)
ENDIF
IF Muestra5.Value = TRUE
Muestra5.BackColor = Color.RGB(R, G, B)
ENDIF
END
Ingredientes:
* 3 Sliders
* 5 ToggleButton
* 3 ValueBox (opcional)
- Los valueBox se llamaran: Muestra1, Muestra2, Muestra3, Muestra4 y Muestra5
- Los Sliders: Rojo, Verde, Azul
- Los ValueBox: VRojo, VVerde, VAzul
Nota: Como opcion los ToggleButton en la propiedad "Radio pueden ir a TRUE, para que solo se seleccione 1 a la vez
Nota2: Otra opcion es crear Eventos "Click" de los ToggleButton para que al seleccionarlos los sliders regresen a 0.
...
Ahora Ojala me puedan ayudar para elimiar los 5 IF, por algo que sea mas productivo y corto..
estaba pensando en un FOR EACH que recorra todos los ToggleButton y encuentre el que este selecciona, al cual se le aplique el RGB...
Espero puedan ayudarme con eso
