vb:设置窗体背景图片，并且让图片随着窗体的大小的调整而调整大小

Private r As RectangleF 
    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

文章来自: 本站原创
引用通告地址: http://www.is21.cn/trackback.asp?tbID=115
Tags: