Home > How-To Library > Forms

How to set background picture for form (like the background image of a HTML Document)

****************************************************************
*       © 2007 CodeItBetter http://www.codeitbetter.com        *
*          This notice MUST stay intact for legal use          *
****************************************************************

'Function which fill forms with some little pictures (like the background image
'of a HTML Document).

'insert this code in a module and call from form_load.
'pic is the picture path and ctl is the form.

Public Sub BackPicture(Ctl As VB.Form, ByVal pic As String)
    Dim img() As VB.Image
    ReDim Preserve img(1)
    Set img(0) = Ctl.Controls.Add("VB.image", "img")
    img(0).Picture = LoadPicture(pic)
    hmax = Screen.Width / img(0).Width + 2
    vmax = Screen.Height / img(0).Height + 2

    For L = 1 To vmax
        For h = 1 To hmax
            cpt = cpt + 1
            'Load img(cpt)
            ReDim Preserve img(cpt)
            Set img(cpt) = Ctl.Controls.Add("VB.image", "img" & cpt)
            With img(cpt)
                .Visible = True
                .Picture = img(0).Picture
                .Top = L * .Height - (.Height)
                .Left = h * .Width - (.Width)
            End With
        Next
    Next
End Sub

Private Sub Form_Load()
    Call BackPicture(Me, "C:\WINDOWS\Blue Lace 16.bmp")
End Sub

If you would like to submit your code here please us. Do not forget to mention your name. We are always thankful to each and everyone of you who submitted their code here.