Discussion :

[candre100]

Bonjour à tous. Je souhaite créer une application, mais il me manque la partie du code qui me permette de fusionner deux images(intégration de texte et d'image : dans une image source).
Je ne sait plus où chercher, je ne trouve que de rares forums où l'on en parle, mais a priori, VB 2008 n'utilise pas le même code que VB 6.0.
Merci d'avance !

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
        Dim imgbase As System.Drawing.Image
        imgbase = System.Drawing.Image.FromFile("")
 
        Dim g As System.Drawing.Graphics
        g = System.Drawing.Graphics.FromImage(imgbase)
 
        g.DrawString()

g permet plein de choses graphique qui dans le cas montré ci dessus seront appliquées sur l'objet imgbase
g.drawimage permet de déssiner une 2 image sur la 1ère (transparence de image2 gérée)
imgbase.save pour sauvegarder le résultat

[candre100]

Merci sperot51,
Ton message me donne le point de départ.
Je te remercie !

[candre100]

Je viens de manger de l'aide à ne plus en pouvoir toute la journée. Très intéressant car j'y vois plus clair dans certains domaines, mais rien de très explicite pour mes besoins actuels...

Dois-je utiliser les mêmes codes pour modifier les Formulaires (et contrôles), et les images (stockées comme des variables) ???

Je vais me permettre une question, mais évidemment, je comprendrais si tu refusais :
_ Pourrais-tu, Sperot51, me copier le code rapide mais complet pour fusionner une image chargée dans pictureBox1 (taille 100 x 100) et une image chargée dans pictureBox2 (taille 10 x 10 situé dans le bord supérieur gauche (0 x 0)), en l'affichant dans pictureBox3 ?

Ca m'enlèverait une poutre du pied et tu serais placé tout en haut de ma pyramide d'honneur !

S'il existe un tutoriel concernant la fusion de deux images dans VB 2008, tel que ceux que l'on trouve sur VB 6.0, je suis preneur.

[Pol63]

ca ressemble à ce que je t'ai mis, un picturebox a une propriété image de type drawing.image
et si tu utilises backgroundimage ca marche aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
        Dim imgfinale As New System.Drawing.Bitmap(picturebox1.width,pitcurebox1.height)
 
        Dim g As System.Drawing.Graphics
        g = System.Drawing.Graphics.FromImage(imgfinale )
 
        g.drawimage(picturebox1.image,0,0) 
        g.drawimage(picturebox2.image,0,0)
 
        picturebox3.image = imgbase

ca doit marcher ...

[candre100]

Je m'attendais à beaucoup plus complexe. Je peaufine le logiciel, et les images, mais ça marche !
Merci et à très bientôt pour de nouvelles questions ...
et encore merci