[VISUAL 6] Principiantes: Jugando con colores!

[wpiaw]

La idea es que quede algo así.....

El Form es toda la pantallita de nuestro programa que se va a cargar.
El textBox es para que se muestren los colores.
Los OptionButton son para elegir las opciones.
Los Frame es para darle un toque elegante.

Option Explicit

Private Sub Form_Load()
     txtCaja.Top = 1680
     txtCaja.Left = 2280
End Sub

Private Sub optArriba_Click()
     txtCaja.Top = 120
     txtCaja.Left = 1920
End Sub

Private Sub optAbajo_Click()
     txtCaja.Top = frmColores0.ScaleHeight - txtCaja.Height
     txtCaja.Left = 2400
 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

Para agregarle el titulo "Colores" damos clic al form y en properties cambiamos en caption, ya esta proto solo debemos hacer clic en file, make proyect1.exe y listo ya podemos disfrutar del ejecutable...........no me digan que es dificil! a probar

Salu2

[baduser]

Gracias compañera, se ve que te gusta tirar codigo... a mi ya se me está olvidando.....jajajaja

[wpiaw]

jajajajaja bad querido es para afirmar conocimientos jajajajaja

[VJEVans]

jajaja.. gracias amiga pia ...

[Skychar]

Mi version, este programa lo he hecho hace algunos años, hahaha lo bueno es que tengo respaldo de 5 años. xD



Code:

Private Sub cmdSortir_Click()
End
End Sub
Private Sub optBas_Click()
txtAire.Top = 3000
End Sub

Private Sub optHaut_Click()
txtAire.Top = 250
End Sub

Private Sub optBleu_Click()
txtAire.BackColor = vbBlue
End Sub

Private Sub optRouge_Click()
txtAire.BackColor = vbRed
End Sub

Private Sub optVert_Click()
txtAire.BackColor = vbGreen
End Sub