Ejercicio Resuelto Visual Basic 6 - Sencillo programa de colores y posiciones

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/