• Viernes 29 de Marzo de 2024, 01:16

Autor Tema:  Imagenes Aleatorias  (Leído 2228 veces)

vbmc_2004

  • Miembro activo
  • **
  • Mensajes: 41
    • Ver Perfil
Imagenes Aleatorias
« en: Sábado 20 de Noviembre de 2004, 21:01 »
0
Hola de nuevo!!!

como es posible realizar que el MDIForm tenga imagenes aleatorias como fondo???

salu2
y gracias
<!--c1--></div><table border=\'0\' align=\'center\' width=\'95%\' cellpadding=\'3\' cellspacing=\'1\'><tr><td>CODE </td></tr><tr><td id=\'CODE\'><!--ec1-->[vmbc®]<!--c2--></td></tr></table><div class=\'signature\'><!--ec2-->

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Imagenes Aleatorias
« Respuesta #1 en: Sábado 20 de Noviembre de 2004, 21:35 »
0
TRATA ASI CON UN Randomize
Código: Text
  1.  
  2. Private Sub MdiForm_Load() 'NO ME ACUERDO SI ES ASI
  3. On Error Resume Next
  4. Dim x
  5. Randomize
  6. x = Int(Rnd * 5) + 1
  7. MdiForm.Picture = LoadPicture (App.Path & &#34;&#092;pic&#34; & x & &#34;.ext&#34;) 'App.Path ES LA DIRECCION ACTUAL x ES EL NOMBRE CON UN NUMERO Y EXT ES LA QUE QUIERAS DE IMAGEN
  8. End Sub
  9.  
CREO QUE ES ALGO ASI.
OJALA TE SIRVA.
CHAO
El pasado son solo recuerdos, el futuro son solo sueños