• Home
 · 
• Custom Controls/Forms/Menus
 · 
• a function to fill your forms with pictures (like a HTML background image) Put this code in a modul

a function to fill your forms with pictures (like a HTML background image) Put this code in a modul

a function to fill your forms with pictures (like a HTML background image) Put this code in a module and insert the function inn the

Rate a function to fill your forms with pictures (like a HTML background image) Put this code in a modul

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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