11/03/2002, 18:00
|
| | 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 |