Underc0de

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 04:17:32 pm

Título: Cómo colocar una imagen de fondo ajustada a la ventana en un MDI
Publicado por: ANTRAX en Julio 26, 2010, 04:17:32 pm
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.