[VB.Net 2.0] Comment Superposer/fusionner images ?

Version imprimable

29/06/2006, 00h24
FRED.G

[VB.Net 2.0] Comment Superposer/fusionner images ?

Bonjour,

J'aimerais supperposer deux objets System.Drawing.Image.
Le but est de "poser" au premier plan dans le coin haut gauche d'une image, une autre image de plus petite taille (gérant éventuellement la transparence).

Le tout de manière à obtenir une seule image que je pourrais insérer dans un ImageList.

Quelles sont les objets & méthodes que je peux utiliser ?

Si vous avez carrément du code, je prends aussi ! ;)
29/06/2006, 15h41
FRED.G

Ce que je souhaite faire s'appelle du "Compositing".

La réponse dotNet est ici : http://www.dotnet-tech.com/tutoriels...ModeUnsafe.pdf
29/06/2006, 15h48
neguib

Pour la superposition visuelle ce n'est pas très compliquée, mais j'ai plutôt répondu à ce type de questions dans le forum Application Windows car si je me souviens bien il s'agissait en fait d'implémenter un "système de calques" donc la piste est tout simplement une imbrication de contrôles Panel en prenant bien soin d'ajouter le nouveau calque/Panel à la collection Controls du calque/Panel précédent : en gros tu peux implémenter un UserControl qui gère sa collection de panels (celui de base ainsi que ceux au BackGroundColor = Color.Transparent).
Quand à la fusion d'images, je n'ai jamais fait, je laisse les pros de ce type d'implémentation te répondre :aie:
Cependant, je me demande si la choix d'un composant ImageList (contraignant en ce qui concerne les index) sera très pratique, comme tu es sous 2.0, je crois que tu t'arrangeras aussi bien avec un List(Of Image) non ?

Edit:
Arf tu viens de répondre toi-même, donc ne tiens pas compte de ma réponse, je crois que j'étais HS :oops:

Merci quand même pour ta réponse Neguib !

Voici le code en VB.NET :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Private Function Compositing(ByVal ImageFond As Image, ByVal
 ImageOver As Image) As Image
 
        Dim img As Image = DirectCast(ImageFond.Clone, Image)
        Dim g As Graphics = Graphics.FromImage(img)
 
        g.DrawImage(ImageOver, New Rectangle(0, 0, ImageOver.Width,
 ImageOver.Height))
 
        ImageFond.Dispose
        ImageOver.Dispose
 
        Return img
 
    End Function

Sinon tu laisses entendre que le Listview peut se passer de l'ImageList ? Décidément que de bonnes surprises ce Framework !

29/06/2006, 17h51
neguib

Citation:

Envoyé par FRED.G

Sinon tu laisses entendre que le Listview peut se passer de l'ImageList ? Décidément que de bonnes surprises ce Framework !

Nonnon je n'ai pas vu que tu parlais du ListView :? j'étais dans mon trip ComposantCalques :mrgreen:
29/06/2006, 17h52
FRED.G

Oups... :)
03/03/2007, 18h23
alyphe

Bonjour
j'ai essayé plusieurs codes mais j'ai vraiment du mal à faire simple et surtout, à ce que ça fonctionne

Je souhaiterai (pour préciser) pouvoir coller l'image de ma petite picturebox1 sur l'image de ma grande picturebox2 sans aucun effet de transparence mais en étant placé en plein milieu...

je sais pas si j'en demande beaucoup mais je dois bien avouer que je sèche...
Merci d'avance si vous pouvez m'aiguiller
____________
Edit1: Bon j'ai peut être progressé:

MainImage.BackgroundImage = background.Image
MainImage.SizeMode = PictureBoxSizeMode.CenterImage

j'ai bien ma picture box avec mon image de fond et ma petite image centrée, mais en affichage uniquement.
Il faudrait juste trouver maintenant comment sauvegarder image+background en un seul jpg.
_____________
edit2

Ok donc je bloque là. tout ce qui me reste à trouver pour finir mon projet est de trouver le moyen de sauvegarder une image jpg qui regrouperait l'image de ma picturebox1 superposant le background de picturebox1

Bon suis pas pro en code mais voilà comment j'ai pu résoudre mon problême

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim myBitmap As New Bitmap(PictureBox1.Image)
Dim resultat As New Bitmap(PictureBox2.Image)
Dim Horizontal As Integer, Vertical As Integer
Dim pixcolor As Color = myBitmap.GetPixel(Horizontal, Vertical)
Dim basehoriz As Integer = ((PictureBox2.Width / 2) - (PictureBox1.Width / 2))
Dim basevert As Integer = ((PictureBox2.Height / 2) - (PictureBox1.Height / 2))
 
For Horizontal = ((PictureBox2.Width / 2) - (PictureBox1.Width / 2)) To ((PictureBox2.Width / 2) + (PictureBox1.Width / 2)) - 1 
For Vertical = ((PictureBox2.Height / 2) - (PictureBox1.Height / 2)) To ((PictureBox2.Height / 2) + (PictureBox1.Height / 2)) - 1 
 
pixcolor = myBitmap.GetPixel(Horizontal - basehoriz, Vertical - basevert)
resultat.SetPixel(Horizontal, Vertical, pixcolor)
 
 
Next Vertical
Next Horizontal

ça place ma petite image centrée sur ma grande image, parfaitement ce qu'il me fallait