13/06/2006, 16:43
|
| | | Fecha de Ingreso: febrero-2006
Mensajes: 37
Antigüedad: 18 años, 3 meses Puntos: 0 | |
| Necesitas Tres 3 Picturebox
Uno Llamalo : picBackdrop
otro : picOriginal
otro : picStretched
en el picOriginal pon tu imagen la que deseas mostrar
Espero te sirva
Option Explicit
Private Sub MDIForm_Activate()
MDIForm_Resize
End Sub
Private Sub MDIForm_Resize()
picStretched.Move 0, 0, ScaleWidth, ScaleHeight
picStretched.PaintPicture picOriginal.Picture, 0, 0, picStretched.ScaleWidth, picStretched.ScaleHeight, 0, 0, picOriginal.ScaleWidth, picOriginal.ScaleHeight
Picture = picStretched.Image
End Sub
__________________
Jerico |