PRACTICA VI-12. uso de barras de desplazamiento y números aleatorios
EQUIPO No5
OBJETIVO.- Aprender a utilizar los objetos HscrollBar, así como los procesos aleatorios y funciones de manipulación de colores.
PROCEDIMIENTO.- Para esta práctica el procedimiento es el siguiente:
- Implemente la siguiente interfase:
- Codifique lo siguiente:
Option Explicit
Private Sub
cmdAleatorio_Click()
hsbRojo.Value = Int(Rnd * 255)
hsbVerde.Value = Int(Rnd * 255)
hsbAzul.Value = Int(Rnd * 255)
End
Sub
Private
Sub cmdSalir_Click()
End
End
Sub
Private
Sub Form_Load()
Call Colorear
End
Sub
Public
Function Colorear()
lblColor.BackColor = RGB(hsbRojo.Value, _
hsbVerde.Value, _
hsbAzul.Value)
lblColor.ForeColor = RGB(255 -
hsbRojo.Value, _
255 -
hsbVerde.Value, _
255 -
hsbAzul.Value)
lblColor.Caption = "RGB( " &
_
Str(hsbRojo.Value) & ","
& _
Str(hsbVerde.Value) & "," & _
Str(hsbAzul.Value) & " )"
End
Function
Private
Sub hsbAzul_Change()
Call Colorear
End
Sub
Private
Sub hsbAzul_Scroll()
Call Colorear
End
Sub
Private
Sub hsbRojo_Change()
Call Colorear
End
Sub
Private
Sub hsbRojo_Scroll()
Call Colorear
End Sub
Private
Sub hsbVerde_Change()
Call Colorear
End
Sub
Private
Sub hsbVerde_Scroll()
Call Colorear
End Sub
- Al ejecutar este código, y dando clic en el botón aleatorio se obtiene lo siguiente:
pero sería deseable que al estar moviendo las barras de desplazamiento también se modifique el color. Así modificamos el código en las barras para que al ocurrir el evento Scroll se modifique el color.
Así pues obtenemos lo siguiente:
CONCLUSIONES: El hecho de utilizar bien las propiedades de color para objetos, da riqueza visual y operativa a nuestra aplicación. Todas las propiedades vistas pueden ser de importancia critica en cierto tipo de aplicaciones por lo tanto es muy importante entenderlas y saber aplicarlas.
IESS