Foro de Ayuda IntercambiosvirtualeS - [VISUAL 6] Principiantes: Jugando con colores!

Foro de Ayuda IntercambiosvirtualeS (https://www.intercambiosos.org/index.php)

- Programación (https://www.intercambiosos.org/forumdisplay.php?f=45)

- - [VISUAL 6] Principiantes: Jugando con colores! (https://www.intercambiosos.org/showthread.php?t=11617)

[VISUAL 6] Principiantes: Jugando con colores!

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

http://i874.photobucket.com/albums/a...aw/colores.jpg

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.

Código:

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

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

jajajajaja bad querido es para afirmar conocimientos jajajajaja

jajaja.. gracias amiga pia ...

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

http://i55.tinypic.com/biqmnr.png

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