Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/03/2002, 18:00
NRLABS
 
Fecha de Ingreso: febrero-2002
Ubicación: Chile
Mensajes: 1.573
Antigüedad: 22 años, 9 meses
Puntos: 2
Re: Imagen de fondo en formulario

Private Sub Form_Paint()
Dim i As Integer
For i = 0 To frm10.ScaleHeight Step Picture1.Height
Dim j As Integer
For j = 0 To frm10.ScaleWidth Step Picture1.Width
PaintPicture Picture1, j, i, Picture1.Width, Picture1.Height
Next
Next
End Sub

Private Sub Form_Resize()
Picture1.Left = -(Picture1.Width + 200)
Picture1.Top = -(Picture1.Height + 200)

End Sub


es facil, la imagen picture1 la copia tantas veces como sea necesario en el fondo del formulario!, dime si te sirvio, a mi si

(donde dice frm10 cambialo por el nombre de tu formulario) saludos
****
;) ;) ;) ;)

Última edición por NRLABS; 19/03/2009 a las 17:57