'Créer 4 PictureBox de 48 Pixels 'Mettre 4 icônes de 48x48 dans les PictureBox 'Créer 1 PictureBox de 96 Pixels Private Sub Command1_Click() 'PicDestination.PAINTPICTURE PicOriginale.IMAGE, XDestination,YDestination,[LargeurDestination],[HauteurDestination],[XSource],[YSource],[LargeurSource],[HauteurSource],[Opération] 'Il faut pour cela que tes PictureBox soietn en Atouredraw=True (sinon remplace .Image par .Picture) et tu ne peux pas sauvegarder l'image finale 'Les parties entre [] sont optionelles Picture1(4).PaintPicture Picture1(0).Image, 0, 0 Picture1(4).PaintPicture Picture1(1).Image, 48, 0 Picture1(4).PaintPicture Picture1(2).Image, 0, 48 Picture1(4).PaintPicture Picture1(3).Image, 48, 48 SavePicture Picture1(4).Image, "c:\Test.BMP" 'Permet de sauvergarder ta création... End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question