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

231 - Background centrado en un Form MDI

Ejemplo que utiliza un control PictureBox y un control Image para colocar una imagen de fondo centrado en un formulario de tipo MDI

Importante : Este código fuente contiene un gran error, por lo tanto no se puede utilizar. El error es que los formularios, entran en conflicto con el Picturebox que contiene la imagen. No se si habrá alguna forma de solucionarlo utilizando esta pésima forma ( lo hice yo ), es decir con un picture dentro del MDI.

De todas formas, ya que lo he visto en algunos sitios de Visual basic, (creo que en vbHelper), lo correcto sería dibujando la imagen en la ventana del MDI mediante Apis + subclasificación.

Por ejemplo este control gratuito hace exactamente esto y se puede utilizar sin problemas ( eso creo), pero la desventaja es que está compilado como OCX y no contiene el código fuente.

Pasos para crear el ejemplo

Iniciar un nuevo proyecto y agregar un formulario Mdi.
Añadir también un control PictureBox.
Dentro de este Picture se colocará el control Image que tendrá el gráfico de fondo, y en el evento Resize del Formulario, se redimensionará y posicionará el control PictureBox al ancho y alto del MDI y también el control Image se posicionará en el centro del PictureBox.

Form en tiempo de diseño

vista del proyecto con los controles pictuer, image en tiempo de diseño

El control Image debe llamarse Image1. El control Picture renombrarlo a Pic_Contenedor

Código fuente en el formulario MDI

Private Sub MDIForm_Load() 'Quita el borde de los dos controles Image1.BorderStyle = 0 Pic_Contenedor.BorderStyle = 0 End Sub Private Sub MDIForm_Resize() 'Posiciona el PictureBox que es el contenedor _ al ancho y alto que tenga el form mdi Pic_Contenedor.Move 0, 0, Me.Width, Me.Height End Sub Private Sub Pic_Contenedor_Resize() Dim Pos_x As Single Dim Pos_y As Single Pos_x = (Pic_Contenedor.Width - Image1.Width) / 2 Pos_y = (Pic_Contenedor.Height - Image1.Height) / 2 'Posiciona el control Image en el centro del Picturebox Image1.Move Pos_x, Pos_y - 180 End Sub

Recursos vb6 - Enlaces relacionados

Ejemplo similar pero usando solo un Picture y la función PaintPicture para redibujar

Recursos visual basic.NET - Relacionados

Ejemplo para trabajar con formularios Mdi en vb.net

Buscar en Recursos vb