Ejercicio Resuelto Visual Basic 6 – Sencillo programa de colores y posiciones
En este ejercicio se muestra el formulario y los controles de un ejemplo muy sencillo que permite mover una caja de texto por la pantalla en este caso Arriba y Abajo, permitiendo a su vez representarla con cuatro colores diferentes.
En este ejercicio aprendemos varios propiedades de los controles como son:
BackColor: Color de fondo
Top: Posición que determina la distancia que existe entre el control y la parte superior del control
ScaleHeight: Este propiedad solo es para formularios y nos devuelve el Alto que tiene el formulario
Height: Determina el alto de un control.
Usamos varias constantes de color para asignárselas al BackColor como son: vbYellow, vbBlue, vbRed, vbGreen
Las constantes de colores con las que cuenta Visual Basic son las siguientes:
- vbBlack
- vbRed
- vbGreen
- vbYellow
- vbBlue
- vbMagenta
- vbCyan
- vbWhite
Se usa una palabra llamada Option Explicit.
Option Explicit: Fuerza la declaración explícita de todas las variables en un archivo, o permite declaraciones implícitas de variables.
Esto que quiere decir, si no colocamos esas palabra podemos usar variables sin la necesidad de declararlas.
Establecer Option Explicit en Off general no es una buena práctica. Podría escribir mal un nombre de variable en una o más ubicaciones, lo que causaría resultados inesperados cuando se ejecuta el programa.
El resultado es el siguiente:
Código completo:
Option Explicit 'esto se usa para validar que las varibles quedeb declaradas Private Sub Form_Load() txtCaja.Top = 0 'Al inicio caja va a estar arriba End Sub Private Sub OptAbajo_Click() txtCaja.Top = frmColores.ScaleHeight - txtCaja.Height ' Para hubicar la caja en la parte inferior del formulario primero sacamos el alto que tiene el formulario ' con ScaleHeight y le restamos el alto de la caja para que quede pegada a la parte inferior End Sub Private Sub OptAmarillo_Click() txtCaja.BackColor = vbYellow End Sub Private Sub OptArriba_Click() txtCaja.Top = 0 'Si damos clic en la ocion Arriba ubicamos la caja en la parte de arriba End Sub Private Sub OptAzul_Click() txtCaja.BackColor = vbBlue 'Para cambiar el Color de fondo se utiliza la propiedad BackColor y se le asinga una constante de color ' las constates de colores que trae visual son las siguientes ' vbBlack ' vbRed ' vbGreen ' vbYellow ' vbBlue ' vbMagenta ' vbCyan ' vbWhite End Sub Private Sub OptRojo_Click() txtCaja.BackColor = vbRed End Sub Private Sub OptVerde_Click() txtCaja.BackColor = vbGreen End Sub
Este ejercicio fue tomado del libro “Practique Visual Basic 6.0 como si estuviera en primero – UNIVERSIDAD DE NAVARRA”
Puedes ver el libro en https://www.programaresfacil.co/libros-de-visual-basic-6/
Este ejercicio se hizo sobre Visual Basic 6 SP6 en Windows 10 64 Bit, Desea instalar Visual Basic en Windows 10 visite Instalar Visual Basic 6 en Windows 10 64 bits
Descarga el código Ejercicio 1 Sencillo programa de colores y posiciones (566 descargas )