Fond en mosaïque

Commenter

Contenu du snippet

Truc tout simple pour mettre une image dans une form en mosaïque, insérez le code dans une form nommé Form1, renseignez le chemin de l'image et voila

Source / Exemple : 


Private Sub Form_Paint()

Dim i, j As Byte ' compteur d'affichage
Dim dx, dy As Byte ' nombre d'image afficher
Dim lHauteur, lLargeur As Long ' dimmension de l'image
Dim Image As Picture ' objet image à afficher

    ' On charge l'image
    Set Image = LoadPicture("image.bmp")
    
    ' on redimensionne ses dimension ( de Himetric on passe aux mode de la Form)
    lHauteur = ScaleY(Image.Height, vbHimetric, Form1.ScaleMode)
    lLargeur = ScaleX(Image.Width, vbHimetric, Form1.ScaleMode)
    ' on calcule le nombre d'image en X et en Y
    dx = Int(Form1.Width / lLargeur)
    dy = Int(Form1.Height / lHauteur)
    ' boucle d'affiche
    For i = 0 To dx
        For j = 0 To dy
            Form1.PaintPicture Image, i * lLargeur, j * lHauteur, lLargeur, lHauteur
        Next j
    Next i
    
    'on nettoie la mémoire
    Set Image = Nothing
end sub

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_Sylfeline)