VB.net 2008 fusionner 2,3,4 images.

Version imprimable

25/10/2010, 10h07
DAN14

VB.net 2008 fusionner 2,3,4 images.

Bonjour a tous.

sur une feuille 21 x 29.7 je désire imprimer quatre images que je regrouperai deux par deux.
Pour cela il faut que je sélectionne les images et que je puisse les fusionner .
sous vb.net 2008 je cherche un bout de code me permettant de le réaliser.
D'avance merci de votre aide

Tu charge tes images dans des bitmaps

Code:

Dim img As Bitmap = Image.FromFile("C:\monimage.png")

et tu peut obtenir/définir n'importe quel pixel de l'image avec

Code:

1
2
img.GetPixel(i, j)
img.SetPixel(i,j,monpixel)

Suffit de jouer sur les SetPixel et GetPixel :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim img1 As Bitmap = Image.FromFile("C:\ToughWalkingOne.png")
        Dim img2 As Bitmap = Image.FromFile("C:\ToughStanding.png")
 
        Dim newImage As New Bitmap(img1.Width + img2.Width, img1.Height)
 
        For i As Integer = 0 To img1.Width - 1
            For j As Integer = 0 To img1.Height - 1
                newImage.SetPixel(i, j, img1.GetPixel(i, j))
            Next
        Next
 
        For i As Integer = 0 To img2.Width - 1
            For j As Integer = 0 To img2.Height - 1
                newImage.SetPixel(i + img1.Width, j, img2.GetPixel(i, j))
            Next
        Next
 
        newImage.Save("C:\new.png")

Dans mon code, je ne vérifie pas lequel à la taille la plus grande, flemme :aie:

25/10/2010, 12h27
Geo2A

Bonjour,

Effectivement les indications données par Jerede permettent de "fusionner des images, mais si c'est juste pour en imprimer 4 par page il suffit de définir et positionner quatre rectangles sur la page et de dessiner les image dedans!
Nota: les coordonnées d'impression sont en 1/100 de pouce donc entre l'écran en pixel et l'impression il faut s'adapter.
25/10/2010, 22h09
DAN14

Merci!

Merci

les 2 solutions me conciennent parfaitement,je vais tester cela des que possible