sábado, 13 de agosto de 2011

Mi primer código

En un formulario creamos los controles como lo indica la siguiente imagen:


A continuación escribimos el siguiente código:

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


Descarga aquí el ejecutable del ejemplo

1 comentario: