.net中窗体的调整

    Private m_image As Image = Image.FromFile("g:\picture.bmp")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try

            r = New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Private Sub mydrawimage()

        Try

            Dim g As Graphics = Me.CreateGraphics

            g.DrawImage(m_image, r)

            g.Dispose()

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        mydrawimage()

    End Sub

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

        r = New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height)

        mydrawimage()

    End Sub