Adding and Auto Sizing the background image of a MDI Form in .NET

參考來源
---
Insert the following code into the MDI form code. Here we are using Resize event of the MDI form.

Private Sub frmMDI_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

‘ Loading the background image required to place on the MDI.

Dim varImage As Image = Image.FromFile("E:\Projects\Tablet\Arjuna\Images\Background-Landsc.jpg")

‘ If there are no space, no point of drawing so exit the sub procedure.

If Me.ClientSize.Width = 0 OrElse Me.ClientSize.Height <= Me.StatusBar1.Height Then Exit Sub

‘ Creating the bitmap image which is used as the background image.

Dim varBitmap As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height – Me.StatusBar1.Height, Imaging.PixelFormat.Format24bppRgb)

‘ Getting the drawing surface of the bitmap (varBitmap).

Dim varGraphics As Graphics = Graphics.FromImage(varBitmap)

‘ Sets the interpolation mode of the graphics object. Interpolation mode determines how intermediate values between two endpoints are calculated

varGraphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

‘ Draw the image on the bitmap.

varGraphics.DrawImage(varImage, 0, 0, varBitmap.Width, varBitmap.Height)

‘ Assign the bitmap as the background image of the MDI form.

Me.BackgroundImage = varBitmap

End Sub