Pour que nos forms soient plus que colorées

Commenter

Contenu du snippet

fonction de remplissage d'une form avec une (série d'image), comme la propriété background image des documents HTML.
pic est le chemin de l'image à insérer
ctl est la form concernée

Source / Exemple : 


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

Conclusion :


mise en module de la fonction et appelle de la focntion dans le form_load. :)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_gmanouvrier)