Título: Llenar escritorio de formularios Publicado por: COMANDOSOFT en 8 Junio 2009, 13:03 pm Hola! Que codigo he de utilizar para que al ejecutar, se me vaya llenando el escritorio de formularios, y que lo hagan aleatoriamente
Título: Re: Llenar escritorio de formularios Publicado por: Spider-Net en 8 Junio 2009, 16:20 pm Código
No creo que te sea muy complicado convertir eso en un bucle verdad? Saludos! Título: Re: Llenar escritorio de formularios Publicado por: COMANDOSOFT en 8 Junio 2009, 16:36 pm ;D Perfecto!
Muchas gracias amigo ;D Título: Re: Llenar escritorio de formularios Publicado por: COMANDOSOFT en 10 Junio 2009, 20:25 pm Joe >:( tu code no lo entendi!
Voy a empezar desde el principio. Tengo este codigo: Citar Private Sub Command1_Click() DimError Frm(1 To 5) As NewError Form1 For i = 1 To 5 FrmError(i).Show DoEventsError NextError End Sub Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada... Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y ¿Que le faltaria al codigo? Título: Re: Llenar escritorio de formularios Publicado por: Jubjub en 10 Junio 2009, 20:29 pm Podrias moverlas con un poco de numeros aleatorios dentro del bucle :)
Título: Re: Llenar escritorio de formularios Publicado por: BlackZeroX en 10 Junio 2009, 20:37 pm Joe >:( tu code no lo entendi! Voy a empezar desde el principio. Tengo este codigo: Citar Private Sub Command1_Click() DimError Frm(1 To 5) As NewError Form1 For i = 1 To 5 FrmError(i).Show DoEventsError NextError End Sub Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada... Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y ¿Que le faltaria al codigo? TOP =rnd(1)* screen.wi... (Coord Y) LEFT =rnd(1)* screen.wi... (Coord X) |