object graphics - Qualité

**morkitu** · 11/01/2013, 16h51

Bonjour,

Je me suis fais une petite application de reporting utilisant des graphics. Tout fonctionne très bien mais la qualité d'affichage et d'impression est très discutable. Les lettres sont un peu floues, comme trouées, comme si on était en mode économie d'encre, ce qui n'est pas le cas. Comment obtenir des belles lettres claires et bien définies?

Voici le code de création de la page:

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
    Public Shared Sub PageMaker()
        Page += 1 'On incrémente le nombre de page
 
        'On redimensionne les tableaux
        ReDim Preserve objbitmap(Page)
        ReDim Preserve objGraphics(Page)
 
        'Creation d'objet avec Set la mise en page
        objbitmap(Page) = New Bitmap(1275, 1665)
        objbitmap(Page).SetResolution(150, 150)
 
        'Association Bitmap-Graphic et Remplissage en blanc
        objGraphics(Page) = Graphics.FromImage(objbitmap(Page))
        objGraphics(Page).FillRectangle(Brushes.White, 0, 0, objbitmap(Page).Width, objbitmap(Page).Height)
 
        'Caractéristique de qualité du GRAPHICS
        objGraphics(Page).SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        objGraphics(Page).TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
        objGraphics(Page).CompositingQuality = Drawing2D.CompositingQuality.HighQuality
 
        frmSReport.NBXNoPage.Maximum = Page + 1
 
    End Sub

Et un exemple de code qui plaque du texte sur la page:

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
    Shared Sub FDrawer(ByVal page As Integer, ByVal Name As String, ByVal POSX As Integer, ByVal POSY As Integer, ByVal AlignFAR As Boolean, ByVal SIZE As Integer, ByVal APOSX As Integer, ByVal APOSY As Integer, ByVal TEXT As String, ByVal WIDTH As Integer)
        'dimension et ajustement du texte
        If SIZE = 0 Then SIZE = 15
        If Name.Length > WIDTH Then WIDTH = Name.Length
 
        TEXT = Mid(TEXT, 1, WIDTH)
 
        ' Creation font et brush.
        Dim drawFont As New Font("Arial", SIZE)
        Dim FdrawBrush As New SolidBrush(Color.Black)
        Dim FdrawFormat As New StringFormat
 
        'Alignement
        If AlignFAR Then
            FdrawFormat.Alignment = StringAlignment.Far
        Else
            FdrawFormat.Alignment = StringAlignment.Near
        End If
 
        'Creation du point d'entrée du texte
        Dim FDrawpoint As New PointF(POSX, POSY)
 
        ' Drawing
        objGraphics(page).DrawString(TEXT, drawFont, FdrawBrush, FDrawpoint, FdrawFormat)
 
    End Sub

J'ai bien essayé de jouer avec les paramètres Smoothingmode, TextRenderingHint et CompositingQuality, mais je n'arrive pas a trouver la bonne combinaison, ou il me manque quelque chose. J'ai augmenté ma résolution mais ce n'est pas vraiment mieux. Pouvez-vous m'aider?

merci

**Jean-Marie Grave** · 11/01/2013, 18h04

Bonjour morkitu

J'ai déjà rencontré ce problème. Après beaucoup d'essais infructueux, je me suis résigné à un artifice. Je dessine ce qu'il faut sur un PictureBox, puis je récupère ce dessin par une capture d'écran (à l'aide de la méthode CopyFromScreen).

Cordialement.

**morkitu** · 11/01/2013, 18h17

Bonjour,

Merci pour la réponse. Malheureusement cette solution ne peut pas m'aider, parce que le rapport à l'écran présente les mêmes imperfections que sur papier, et que le rapport déborde de l'écran (scrollbar).

J'ai l'impression qu'il me manque un détail... Je poursuis les recherches!

merci

**wallace1** · 11/01/2013, 18h25

Pour la qualité de l'image tu as aussi :

Code :

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

1
2
 
objGraphics(Page).InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

Je ne sais pas ce que ca pourrait donner car je ne travaille pas sur des graphiques mais sur des qualités d'images directement !

PS : la fonction copyscreen me parait être une bonne alternative

**Jean-Marie Grave** · 11/01/2013, 19h47

Bonjour Morkitu

Pourriez-vous m'indiquer la version de vb.net que vous utilisez ?

Merci.

**morkitu** · 11/01/2013, 19h51

Bonjour,

J'utilise VB 2010 Express.

**Jean-Marie Grave** · 12/01/2013, 12h06

Bonjour.

Moi aussi je travaille sous vb 2010. J'ai en conséquence effectué quelques tests. Je vous en fait un compte rendu.

1. Dessiner du texte sur un bitmap donne un résultat peu satisfaisant.
2. Dessiner du texte sur un PictureBox et récupérer dans un bitmap le dessin à l'aide de la méthode CopyToScreen donne un résultat très satisfaisant. Mais l'impression de ce bitmap donne un mauvais résultat.
3. Imprimer une photo (.jpg) donne un résultat très satisfaisant.
4. On convertit un bitmap en photo à l'aide de Paint (au charge le bitmap, et on l'enregistre en tant que .jpg).

Peut-être cela vous aidera-t-il.

Cordialement.

PS. La question de la taille peut probablement se régler par dessin d'un bitmap sur un autre, avec le décalage voulu, mais je n'ai pas testé.

**morkitu** · 12/01/2013, 16h13

Merci de votre aide, je vais faire quelques tests demain et je vous reviens. Je ne savais pas qu'on pouvait dessiner directement sur la picturebox.

Voici la différence entre un rapport produit par une application concurrente et un produit par la mienne:

Celui sur la gauche est absolument parfait (les petits défauts qu'on voit ici sont dus à la photo). J'espère parvenir à ce résultat!

A bientôt et merci

**morkitu** · 12/01/2013, 16h22

Rebonjour!

Je constate en regardant attentivement les deux images que la police est différente (le R est différent)... Je me demande si la police peut jouer sur la qualité d'une quelconque façon.

**MABROUKI** · 12/01/2013, 16h56

bonjour morkitu

Active le rendu des polices cleartype sous windows xp.......

Code :

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

1
2
3
 
 'Caractéristique de qualité du GRAPHICS
         objGraphics(Page).TextRenderingHint  = Drawing.Text.TextRenderingHint.ClearTypeGridFit

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

**Jean-Marie Grave** · 12/01/2013, 20h35

Bonjour morkitu.

Pour votre gouverne, sachez que tout contrôle hérite de la classe Control, laquelle possède l'événement Paint. Et voila pourquoi vous pouvez dessiner sur n'importe quel contrôle.

Cordialement.

**morkitu** · 14/01/2013, 18h27

Le highqualitybicubic et l'activation du cleartype ont bien été efficaces lors de l'affichage des bitmaps dans la picturebox, l'impression est améliorée, voire acceptable pour mes besoins, mais pas parfaite comme l'application concurrente.

En creusant, inspiré par le dernier post, je sais maintenant en partie comment atteindre cette perfection.

Si je fait ainsi ainsi:

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
41
 
    Public Shared Sub PageMaker()
        Page += 1 'On incrémente le nombre de page
 
        'On redimensionne les tableaux
        ReDim Preserve objbitmap(Page)
        ReDim Preserve objGraphics(Page)
 
        'Creation d'objet avec Set la mise en page
        objbitmap(Page) = New Bitmap(1275, 1650)
        objbitmap(Page).SetResolution(150, 150)
 
        'Association Bitmap-Graphic et Remplissage en blanc
        objGraphics(Page) = Graphics.FromImage(objbitmap(Page))
        objGraphics(Page).FillRectangle(Brushes.White, 0, 0, objbitmap(Page).Width, objbitmap(Page).Height)
 
        frmSReport.NBXNoPage.Maximum = Page + 1
 
		' Creer font brush position.
        Dim drawFont As New Font("arial", 10)
        Dim drawBrush As New SolidBrush(Color.Black)
        Dim drawPoint As New PointF(10,10)
 
		'Dessin des string TEST(X)
		For X as integer = 10 to 50 step 10
			objGraphics(page).DrawString("TEST" & X, drawFont, drawBrush, drawPoint)
			drawpoint= new pointF(10,X)
		Next
 
		'Impression
		PrintDocument1.Print()
 
    End Sub
 
	Private Sub PrintDocument1_PrintPage_1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Dim newMargins As System.Drawing.Printing.Margins = New System.Drawing.Printing.Margins(0.2, 0.2, 0.2, 0.2)
        PrintDocument1.DefaultPageSettings.Margins = newMargins
        e.Graphics.DrawImage(PageReport.bitmap(0), 0, 0)
        PrintDocument1.PrinterSettings.PrinterName = "CutePDF Writer"
    End Sub

J'obtiens ceci:

Mais si je ne passe pas par la création d'un bitmap, mais que je passe le tout par le Graphics de l'imprimante:

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
 
   Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        PrintDocument1.Print()
   End Sub
 
Private Sub PrintDocument1_PrintPage_1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        'Setup des marges
        Dim newMargins As System.Drawing.Printing.Margins
        newMargins = New System.Drawing.Printing.Margins(0.2, 0.2, 0.2, 0.2)
        PrintDocument1.DefaultPageSettings.Margins = newMargins
 
        ' Cree font and brush et postition.
        Dim drawFont As New Font("arial", 9)
        Dim drawBrush As New SolidBrush(Color.Black)
        Dim drawPoint As New PointF
 
        ' Draw string
        For x As Integer = 20 To 100 Step 20
            drawPoint = New PointF(10, x)
            e.Graphics.DrawString("TEST" & x, drawFont, drawBrush, drawPoint)
        Next
 
        PrintDocument1.PrinterSettings.PrinterName = "CutePDF Writer"
 
    End Sub

j'obtiens cela!

Je creuserai d'avantage de ce coté éventuellement.

A+ et merci

Morkitu

object graphics - Qualité

VB.NET

Discussions similaires

Partager

Partager