Discussion :

[DAN14]

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

[Jerede]

Tu charge tes images dans des bitmaps

Code :

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

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

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

Code :

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

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

Suffit de jouer sur les SetPixel et GetPixel

Code :

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

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

[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.

[DAN14]

Merci


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