janet
29 de Marzo del 2005

hola estoy aprendiendo a usar visual basic pero tengo un problema.Me gustaria saber como hacer un programa en en donde por tiempos aparezca un color diferente podrian mandarme la programacion por favor se los agradeceria mucho
gracias

en?
29 de Marzo del 2005

janet, crea un nuevo proyecto, a帽ade un control Timer y pega el siguiente c贸digo en la secci贸n declaraciones del formulario:

Option Explicit

Private Sub Form_Load()
Randomize
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Form1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

__
Un saludo.

German
29 de Marzo del 2005

Hola Janet. . no te malacostumbres a pedir codigo. Te lo voy a poner porq es facil , pero hay mucha gente q pide codigo y no es muy bien atendida.
Lo q vas a tener q hacer es poner un timer y un shape con la propiedad FillStyle en Solid, por darte un ejempo. Al timer le das un valor de interlao medio chico. por ejemplo 300. (es solo para q no tengas q esperar demasiado) Y en el evento timer:
Private Sub Timer1_Timer()
Dim a As Byte
Dim b As Byte
Dim c As Byte
Randomize
a = 255 * Rnd()
b = 255 * Rnd()
c = 255 * Rnd()
Me.Shape1.FillColor = RGB(a, b, c)
End Sub

Saludos