Discussion :

[Invité]

Bonjour
Je crée un programme dans lequel je suis confronté à un petit problème sur une notion que je n'avait jamais abordé avant
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 :

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

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)
Voilà, en espérant que c'est assez compréhensible

[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

[Invité]

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

[Invité]

[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

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

[Jean-Marie Grave]

Bonjour Patak

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

Code :

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

Dim Image As New Image

Cordialement.

[Pol63]

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

Code :

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

Dim Image As New Image

pas du tout

[Invité]

J'avais déjà essayé avec :

Code :

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

Dim Image As New Image

Mais c'est pas bon ...

[MABROUKI]

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 :

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

[Invité]

J'étais mort se rire en lisant ton message

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 :

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

Dim Point as Point

Point sera (X = 0, Y = 0)

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

Code :

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

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

Message d’erreur :

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

Encore merci pour tout