EJEMPLO BASICO COLORES (3)

Ejemplo Sencillo programa de colores

y posiciones

Se muestra el formulario y los controles de un ejemplo muy sencillo que permite mover una caja de texto por la pantalla, permitiendo a su vez representarla con cuatro colores diferentes.

En la Tabla se describen los controles utilizados, así como algunas de sus propiedades más importantes (sobre todo las que se separan de los valores por defecto). Los ficheros de este proyecto se llamarán Colores0.vbp y Colores0.frm.

Para no confundirnos pondre la pantalla de cada boton, texto y label que se presenta en este programa

A continuación se muestra el código correspondiente a los procedimientos de este ejemplo.

Option Explicit

Private Sub Form_Load()

 txtCaja.Top = 0

End Sub

Private Sub optArriba_Click()

 txtCaja.Top = 0

End Sub

Private Sub optAbajo_Click()

 txtCaja.Top = frmColores0.ScaleHeight - txtCaja.Height

End Sub

Private Sub optAzul_Click()

 txtCaja.BackColor = vbBlue

End Sub

Private Sub optRojo_Click()

 txtCaja.BackColor = vbRed

End Sub

Private Sub optVerde_Click()

 txtCaja.BackColor = vbGreen

End Sub

Private Sub optAmarillo_Click()

 txtCaja.BackColor = vbYellow

End Sub

Esto se le programa en cada boton como le especificamos