Cómo colocar una imagen de fondo ajustada a la ventana en un MDI

  • 0 Respuestas
  • 2401 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5678
  • Actividad:
    30%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email
Código: (vb) [Seleccionar]
      Private Sub MDIForm_Resize()
      On Error Resume Next
      Dim ImageWidth As Single
      Dim ImageHeight As Single
      picStretch.Visible = False
      picStretch.AutoRedraw = True
      picStretch.Height = Me.ScaleHeight 'By Mirador
      ImageWidth = picStretch.ScaleX(picStretch.Picture.Width, vbHimetric, vbTwips)
      ImageHeight = picStretch.ScaleY(picStretch.Picture.Height, vbHimetric, vbTwips)
      picStretch.PaintPicture picStretch.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, ImageWidth, ImageHeight
      Set Me.Picture = picStretch.Image
      End Sub

En este caso, deberías tener un Picture llamado picStretch con la imagen que quieres que se ajuste a la ventana MDI.
« Última modificación: Mayo 12, 2014, 03:26:00 pm por Expermicid »