Tema: FAQ's de VB6
Ver Mensaje Individual
  #174 (permalink)  
Antiguo 02/07/2008, 16:12
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Pregunta ¿Cómo colocar una imagen de fondo ajustada a la ventana en un MDI?

Veo que este código ha sido de utilidad para algunos. Así que lo coloco en las FAQ's:
Código vb:
Ver original
  1. Private Sub MDIForm_Resize()
  2. On Error Resume Next
  3. Dim ImageWidth As Single
  4. Dim ImageHeight As Single
  5. picStretch.Visible = False
  6. picStretch.AutoRedraw = True
  7. picStretch.Height = Me.ScaleHeight 'By Mirador
  8. ImageWidth = picStretch.ScaleX(picStretch.Picture.Width, vbHimetric, vbTwips)
  9. ImageHeight = picStretch.ScaleY(picStretch.Picture.Height, vbHimetric, vbTwips)
  10. picStretch.PaintPicture picStretch.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, ImageWidth, ImageHeight
  11. Set Me.Picture = picStretch.Image
  12. End Sub
En este caso, deberías tener un Picture llamado picStretch con la imagen que quieres que se ajuste a la ventana MDI.
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.

Última edición por David; 22/04/2009 a las 23:36