Sección de códigos , trucos y ejemplos para visual basic

89 - Colocar una imagen centrada de fondo en un Formulario Mdi

Lo siguiente muestra una forma de como colocar una imagen centrada en un formulario Mdi dibujandola con la función PaintPicture

Vista del MDI con el gráfico

Vista del Formulario Mdi con la imagen de fondo

En el ejemplo se utiliza un Picture ya que el Mdi no posee dicho método.

Colocar un Picture1 dentro de un formulario Mdi y especificar la ruta de la imagen que queremos cargar en el evento FormLoad del Mdi

Código fuente en un Formulario Mdi:

'Variable de tipo Ipicturedisp para cargar la imagen Dim imagen As IPictureDisp Private Sub MDIForm_Load() 'Cargamos la imagen en la variable con LoadPicture pasandole la ruta Set imagen = LoadPicture("C:\COMPUTADORA.Gif") 'Para que al repintar la ventana _ se mantenga el gráfico Picture1.AutoRedraw = True Picture1.BorderStyle = 0 End Sub Private Sub MDIForm_Unload(Cancel As Integer) 'Elimina de la memoria la imagen If Not imagen Is Nothing Then Set imagen = Nothing End If End Sub 'evento Resize del picturebox Private Sub Picture1_Resize() Dim Ancho As Single Dim Alto As Single With Picture1 Picture1.Cls 'Mazimizamos el Picture1 dentro del Mdi para que ocupe todo el área .Move 0, 0, Me.Width, Me.Height 'Pasamos el ancho y el alto de la imágen de Himetric a la escala _ que tenga el picture Ancho = Picture1.ScaleX(imagen.Width, vbHimetric, .ScaleMode) Alto = Picture1.ScaleY(imagen.Height, vbHimetric, .ScaleMode) ' Dibujamos la imágen y la centramos Picture1.PaintPicture imagen, (Picture1.ScaleWidth - Ancho) / 2, _ (Picture1.ScaleHeight - Alto) / 2 End With End Sub Private Sub MDIForm_Resize() 'Cuando se redimensiona el Form, _ ejecutamos el REsize del Picture Picture1_Resize End Sub

Recursos vb6 - Enlaces relacionados

Ocx para colocar una imagen centrada en un formulario MDI

Buscar en Recursos vb