Alignement image graphic

Version imprimable

Bonjour :salut:
Je crée un programme dans lequel je suis confronté à un petit problème sur une notion que je n'avait jamais abordé avant :cry:
J'ai plusieurs chemin d'image (BMP, JPG et PNG) et j'aimerais tous les charger et les faire entrer dans un Graphics ...
En gros, j'aimerais faire un truc comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 Function Generer(ByVal Chemins As String()) As Graphics Dim Graphics As Graphics For Each Chemin As String In Chemins Dim Image as New ImageLoadFrom(Chemin) Graphics.DrawImage(Image) Next Return Graphics End Function
Mais que les images chargé s'aligne intelligemment les une à la suite des autres dans le graphics (Après, j'imprime le graphics) :mrgreen:
Voilà, en espérant que c'est assez compréhensible :roll:

16/09/2012, 22h14
Pol63

il suffit de réfléchir un peu
drawimage permet de définir x et y
sur une image on peut connaitre x
il suffit donc d'incrémenter une variable x ou y

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    Private Sub Generer(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Document.PrintPage
        Dim Point As Point
        Dim Last_Width As Integer
        Dim Last_Height As Integer
 
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
 
        For Each Chemin In Liste_Image.Items
            Dim Image As System.Drawing.Image = System.Drawing.Image.FromFile(Chemin)
 
            If (Image.Width + Last_Width <= e.PageBounds.Width) Then
                Point = New Point(Point.X + Last_Width, Point.Y)
                Last_Width = Image.Width
                Last_Height = 0
            ElseIf (Image.Height + Last_Height <= e.PageBounds.Height) Then
                Point = New Point(Point.X, Point.Y + Last_Height)
                Last_Width = 0
                Last_Height = Image.Height
            Else
                MsgBox("Pas d'accord ...")
                Last_Width = 0
                Last_Height = 0
                Continue For
            End If
 
            e.Graphics.DrawImage(Image, Point)
            Image.Dispose()
        Next
    End Sub

Pour l'instant j'en suis là ...
ET quand je lui envoie deux image, il m'en affiche qu'une ...

17/09/2012, 21h03
Invité

:help:
17/09/2012, 21h09
Pol63

mets un point d’arrêt et fait du pas à pas pour voir si tu passes bien plusieurs fois dans la boucle et si point contient bien ce que tu penses
20/09/2012, 16h42
Invité

Ça ne m'aide pas trop ...
Par contre, j'ai découvert que PageBounds.Height et Width était exprimé en Inch (Pouce).
Comment convertir des Inch en Pixel ?

bonjour Patak
Essaye avec :

Code:

1
2
3
4
5
6
7
8
9
10
 
  Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim g As Graphics = e.Graphics
 
        g.PageUnit = GraphicsUnit.Inch
        g.DrawRectangle(Pens.Black, New Rectangle(0, 0, 100, 100))
 
        g.PageUnit = GraphicsUnit.Millimeter
        g.DrawRectangle(Pens.Black, New Rectangle(0, 0, 100, 100))
    End Sub

bon code..................

21/09/2012, 12h32
Invité

Merci beaucoup :mrgreen:
Donc pour la conversion c'est réglé, mais je laisse toujours le sujet en Non-Résolu car je n'ai toujours pas réussi à aligner les images de façon à ce qu'elles prenne le moins de place possible ...
Donc tout aide est la bienvenue :ccool:

rebonjour Patak....

Il est vrai que l'impression est consideree comme un "pensum" par tout le monde................
Justiciable de l'adage algerien:
"arriver enfin à la fontaine ,et ne pas etancher sa soif".Horrible.....

Bon ton code necessite un serieux lifting...
Voici 4 regles d'or:

Regle 1:ne jamais mettre une boucle sur tous les objets d'un document dans l'event PrintPage.
HasMorePage est prevu pour ca.......(sauf s'il tient sur une page).

Regle 2: prevoir une variable compteur de page du document(consequence de 1)....

Regle 3:seule des boucles sur des objets contenus dans une page de notre document sont autorises.....

Regle 4:imprimer au debut des marges(e.MarginBounds.Left).....

Moyens ces precautions voici ce que devient ton code avec des rectangles aleatoires( pour aller vite....)
Tu remplacera rectangle par image ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
'Eviter les boucles sur les objets à imprimer(faute courante...)
'dans l'event PrintPage quand on peut avoir plusieurs pages  
'utiliser un compteur de page
 
Public Class Form2
    'rectangle remplace les images
    Private ListeRectangle As List(Of Rectangle) = New List(Of Rectangle)
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.ResizeRedraw = True
    End Sub
    Private Sub BtnLoadImages_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoadImages.Click
        Dim rnd As Random = New Random
        For i As Integer = 0 To 39
            Dim rc As Rectangle = _
                 New Rectangle(0, 0, _
                   rnd.Next(100, 300), rnd.Next(100, 150))
 
            Liste_Image.Items.Add(rc)
 
        Next
        totalImage = Liste_Image.Items.Count - 1
    End Sub
    Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.Show()
    End Sub
    Private totalImage As Integer = 0
    Private incImage As Integer = 0
 
    Private Sub Generer(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        e.Graphics.PageUnit = GraphicsUnit.Display
 
        Dim rndColor As Random = New Random()
        Dim penRect As Pen = New Pen(Color.Black, 2)
        Dim brushRect As SolidBrush = Nothing
 
 
        ' largeur  hauteur de page courante .
        Dim bottomPage As Integer = e.MarginBounds.Bottom
        Dim rightPage As Integer = e.MarginBounds.Right
 
        Dim posX As Integer = e.MarginBounds.Left
        Dim posY As Integer = e.MarginBounds.Top
 
        Dim rect As Rectangle
        ' boucles whiles gerent les objets d'une page 
        ' pas les objets  du document en entier (liste_image)
        While (posY + rect.Height) <= bottomPage
            rect = Liste_Image.Items(incImage)
            While (posX + rect.Width) <= rightPage And incImage < totalImage
                brushRect = New SolidBrush( _
        Color.FromArgb(rndColor.Next(120, 255), rndColor.Next(120, 255), rndColor.Next(120, 255)))
                'draw filled rect
                e.Graphics.FillRectangle(brushRect, posX, _
                    posY, rect.Width, rect.Height)
                'draw rect
                e.Graphics.DrawRectangle(penRect, posX, _
                  posY, rect.Width, rect.Height)
                incImage += 1
                posX += rect.Width
                rect = Liste_Image.Items(incImage)
            End While
            incImage -= 1
            rect = Liste_Image.Items(incImage)
            posX = e.MarginBounds.Left
            posY += rect.Height
            incImage += 1
        End While
 
        's'il y a plusieurs page ,continue à te declencher cher
        'printpage 
        e.HasMorePages = (incImage < totalImage)
 
        '----------------ce code est un raccourci de--------------- 
        'If incImage < totalImage Then
        '    e.HasMorePages = True
        'End If
 
    End Sub
 
 
 
End Class

bon code...............

21/09/2012, 21h28
Invité

Franchement, merci beaucoup ! :bravo:
Explications clairs et détaillés !

Encore merci, grâce à toi tout sera fonctionnel :ccool::ccool::ccool:

J'ai crié victoire trop top :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    Sub Generer(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Document.PrintPage
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        e.Graphics.PageUnit = GraphicsUnit.Display
 
        Dim X As Integer = e.MarginBounds.Left
        Dim Y As Integer = e.MarginBounds.Top
        Dim Total As Integer = Liste_Image.Items.Count - 1
        Dim Image As Image
 
        While ((Y + Image.Height) <= e.MarginBounds.Bottom)
            Image = Image.FromFile(Liste_Image.Items(Index))
 
            While (((X + Image.Width) <= e.MarginBounds.Right) And (Index < Total))
                e.Graphics.DrawImage(Image, New Point(X, Y))
 
                Index += 1
                X += Image.Width
 
                Image = Image.FromFile(Liste_Image.Items(Index))
 
            End While
 
            Image = Image.FromFile(Liste_Image.Items(Index - 1))
            X = e.MarginBounds.Left
            Y += Image.Height
 
        End While
 
        If (Index < Total) Then
            e.HasMorePages = True
        End If
    End Sub

Citation:

La variable 'Image' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.

22/09/2012, 13h53
Jean-Marie Grave

Bonjour Patak

C'est votre ligne 8 qui est en défaut. Il fallait écrire

Code:

Dim Image As New Image

Cordialement.
22/09/2012, 13h56
Pol63

Citation:

Envoyé par Jean-Marie Grave

C'est votre ligne 8 qui est en défaut. Il fallait écrire

Code:

Dim Image As New Image

pas du tout
22/09/2012, 17h41
Invité

J'avais déjà essayé avec :

Code:

Dim Image As New Image

Mais c'est pas bon ...

bonjour Patak

Adapter un code n'est pas toujours facile
Comme j'en suis l'auteur je te ferais observer que j'ai use et abuse des bontes du Rectangle...
L'exemple fonctionne malgre que Dim rect As Rectangle n'est pas initialise hein ..mais dans les coulisses du .Net en fait il vaut:
-par defaut Rectangle.Empty
C'est un rectangle initialise à new Rectangle(0,0,0,0) de dimensions nulles
Donc chez moi Rect n'est pas nothing et rect.Height vaut zero ce qui est recherche à l'entree du while et donc je rentre dans le while (premier passge) sans encombre.....
Helas pour toi tu rentres dans la boucle while (premier passage) sans ticket c'est un image qui vaut Nothing par defaut et ca bloque...
De plus ce maudit image ne peut etre initialise que par des methodes .....

Mais puisque il faut ruser rusons ..rentre comme je l'ai fait deguise en rectangle et à l'interieur du while tu "tracke" les dimensions du Image ave le rectangle ...
Remplace dans les 2 boucles la variable Image par rect
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Sub Generer(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Document.PrintPage e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality e.Graphics.PageUnit = GraphicsUnit.Display Dim X As Integer = e.MarginBounds.Left Dim Y As Integer = e.MarginBounds.Top Dim Total As Integer = Liste_Image.Items.Count - 1 Dim Image As Image 'rentre deguise en rectangle comme un renard dans le poulailler Dim rect As Rectangle While ((Y + rect.Height) <= e.MarginBounds.Bottom) Image = Image.FromFile(Liste_Image.Items(Index)) 'maj rect= new Rectangle(0,0,Image.Width,Image.Height) While (((X + rect.Width) <= e.MarginBounds.Right) And (Index < Total)) e.Graphics.DrawImage(Image, New Point(X, Y)) Index += 1 X += Image.Width Image = Image.FromFile(Liste_Image.Items(Index)) 'maj rect= new Rectangle(0,0,Image.Width,Image.Height) End While Image = Image.FromFile(Liste_Image.Items(Index - 1)) 'maj rect= new Rectangle(0,0,Image.Width,Image.Height) X = e.MarginBounds.Left Y += Image.Height End While If (Index < Total) Then e.HasMorePages = True End If End Sub
sacre rectangle...............
bon code.....

23/09/2012, 09h24
Invité

J'étais mort se rire en lisant ton message :lol:

Citation:

Entre comme un renard entre dans un poulailler

Merci pour tes supers explications !
J'ai bien retenu que dans certain cas des Class sont initialisé avec des zéros :

Code:

Dim Point as Point

Point sera (X = 0, Y = 0) :mouarf:

Par contre, j'ai l'impression que VB.NET n’apprécie pas cette ligne :

Code:

Image = Image.FromFile(Liste_Image.Items(Index - 1))

Message d’erreur :

Citation:

InvalidArgument=La valeur '-1' n'est pas valide pour 'index'.

Encore merci pour tout :mrgreen:

bonjour patak....
Ca n'est pas parce que :
-as omis cette ligne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
End While
 
            Image = Image.FromFile(Liste_Image.Items(Index - 1))
            'maj
             rect= new Rectangle(0,0,Image.Width,Image.Height)
            X = e.MarginBounds.Left
            Y += Image.Height
 
             'ligne omise           
             Index+=1
        End While

code original:

Code:

1
2
3
4
5
6
7
8
9
 
 
 End While
            incImage -= 1
            rect = Liste_Image.Items(incImage)
            posX = e.MarginBounds.Left
            posY += rect.Height
            incImage += 1
        End While

bon code...............

Nouveau code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
    Dim Index As Integer = 0
 
    Sub Generer(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Document.PrintPage
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        e.Graphics.PageUnit = GraphicsUnit.Display
 
        Dim X As Integer = e.MarginBounds.Left
        Dim Y As Integer = e.MarginBounds.Top
        Dim Total As Integer = Liste_Image.Items.Count - 1
        Dim Image As Image
        Dim Rectangle As Rectangle
 
        While ((Y + Rectangle.Height) <= e.MarginBounds.Bottom)
            Image = Image.FromFile(Liste_Image.Items(Index))
            Rectangle = New Rectangle(0, 0, Image.Width, Image.Height)
 
            While (((X + Rectangle.Width) <= e.MarginBounds.Right) And (Index < Total))
                e.Graphics.DrawImage(Image, New Point(X, Y))
 
                Index += 1
                X += Image.Width
 
                Image = Image.FromFile(Liste_Image.Items(Index))
                Rectangle = New Rectangle(0, 0, Image.Width, Image.Height)
 
            End While
 
            Index -= 1
            Image = Image.FromFile(Liste_Image.Items(Index))
            Rectangle = New Rectangle(0, 0, Image.Width, Image.Height)
 
            X = e.MarginBounds.Left
            Y += Image.Height
            Index += 1
        End While
 
        If (Index < Total) Then
            e.HasMorePages = True
        End If
    End Sub

Exactement le même message d’erreur ...
PS : Le message d’erreurs n'apparait que lorsque je met une seul image.

24/09/2012, 17h35
Invité

:help: