Discussion :

[chrislcf]

Bonjour,

Je souhaite créer une image à partir d'un texte récupéré dans une base de données.

J'ai trouvé le code suivant qui marche à merveille :

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
Sub generationImageVersDisque(ByVal monTexte As String)
 
            ' Instanciation d'un objet Bitmap qui va jouer, en quelque sorte, le rôle de conteneur.
            ' On passe au constructeur les dimensions en pixels que l'on souhaite (largeur, hauteur)
            Dim monBitmap As Bitmap = New Bitmap(600, 100)
            ' Création d'un objet Graphics qui va être notre surface de dessin, on l'associe
            ' à notre objet Bitmap grâce à la méthode FromImage
            Dim monGraphic As Graphics = Graphics.FromImage(monBitmap)
            ' Instanciation de deux objets Brush qui vont nous permettre, respectivement,
            ' de "peindre" le fond, puis de "dessiner" le texte par dessus. Nous leur
            ' passons la couleur que l'on souhaite leur donner
            Dim monPinceau As New SolidBrush(Color.White)
            Dim monStylo As New SolidBrush(Color.Black)
            ' Ici nous nous créons un rectangle de la taille de notre surface de dessin avec
            ' l'objet Brush.
            monGraphic.FillRectangle(monPinceau, 0, 0, 600, 100)
            ' Objet Font qui contient la police et ses caractéristiques
            Dim maPolice As New Font("Arial", 8, FontStyle.Regular)
            ' Structure PointF qui est un ensemble de 2 coordonnées pour le début du texte
            ' sur la surface de dessin.
            Dim mesCoor As New PointF(5.0F, 5.0F)
            ' Rendu du texte : ici nous sommes en qualité optimale.
            ' Plus de détails sur le sujet dans la suite de ce tutoriel
            monGraphic.TextRenderingHint = System.Drawing.Text.TextRenderingHint.ClearTypeGridFit
            ' "Ecriture" du texte sur la surface de dessin, en paramètres, on passe, 
            ' dans l'ordre, le texte, la police, le pinceau, et l'emplacement.
            monGraphic.DrawString(monTexte, maPolice, monStylo, mesCoor)
            ' Enregistrement à la racine de l'application le fichier généré
            monBitmap.Save(Server.MapPath("monImage.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
            ' Ce code crée un lien sur votre page pour que vous puissiez vérifier le résultat,
            ' mais il n'est pas nécessaire pour la création de l'image elle-même.
            Response.Write("<a target=""C:\"" href=""monImage.jpg"">Votre image</a>")
 
 
        End Sub

Néanmoins si le texte est trop long il sort de mon rectangle qui a été défini.

Je voulais savoir s'il y avait moyen de faire les choses suivantes :
1. Aller à la ligne lorsque le texte arrive au bout de mon rectangle.
2. Justifier mon texte

Tout est géré par la méthode drawstring de la classe graphique mais je n'ai pas trouvé les options que je recherche.

[agamitsudo]

Bonjour,

Tu utilises ce prototype.

Code :

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

Public Sub DrawString(String, Font, Brush, PointF)

Pour maîtriser le formatage de l'affichage de ta string, tu pourrais utiliser cette surcharge de DrawString :

Code :

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

Public Sub DrawString(String, Font, Brush, PointF, StringFormat)

Qui prend en paramètre un objet StringFormat sur lequel tu définis des flags correspondants à tes contraintes d'affichage.

A+,
Agamitsudo.

[chrislcf]

Ok ca gère tout ca...

J'ai rajouté ça à mon code :

Code :

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

1
2
Dim Alignment As System.drawing.StringAlignment
            Alignment = StringAlignment.Far

Par contre je ne sais pas comment faire pour surcharger ma fonction DrawString

Quand je mets :

Code :

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

monGraphic.DrawString(monTexte, maPolice, monStylo, mesCoor, Alignment)

Il me met que la surcharge a échoué car aucune fonction Drawstring recevant ces paramètres n'est accessible.

Sinon autre chose en ce qui concerne le string alignment. Je ne trouve pas l'option "justifier". Les options possibles sont les suivantes:

Code :

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

1
2
3
4
Nom de membre Description 
Center: Spécifie que le texte est aligné au centre du rectangle de mise en page. 
Far: Spécifie que le texte est aligné loin de la position d'origine du rectangle de mise en page. Dans une mise en page de gauche à droite, la position éloignée est à droite. Dans une mise en page de droite à gauche, la position éloignée est à gauche. 
Near: Spécifie que le texte doit être aligné près de la mise en page. Dans une mise en page de droite à gauche, la position proche est à gauche. Dans une mise en page de gauche à droite, la position proche est à droite.

Y a t-il un moyen de justifier mon texte ?

[nikoko34]

Bonjour,

A ma connaissance, celà n'est pas possible comme tu ne trouveras pas de moyen pour justifier le texte présent dans un button par une simple propriété.

Ceci dit, une méthode qui aboutirait à une justification du texte n'est pas bien dure à écrire, le but est de définir l'espace moyen entre chaque caractère de ta chaîne.

Je t'en donne une esquisse sommaire qui prend en compte les polices à largeur variable:
1) Compter le nombre de caractères à afficher dans la ligne à justifier (incluant les espaces)
2) Prendre la largeur du texte avant justification (propriété measurestring)
3) Prendre la largeur du graphique où figure ce texte (propriété width)
4) Calculer l'espace manquant (3 - 2)
5) Calculer l'espace à ajouter par caractère (4 / 1)
6) Ecrire chaque caractère en prenant son indice dans la chaine, en calculant la largeur de la chaine jusqu'à ce caractère et en ajoutant 5 multiplié par la valeur de l'indice

Je sais pas si j'ai été assez clair là...

[nikoko34]

Ma solution précédente est basée sur un "étirement" de la position de chaque caractère, une autre méthode consisterait à appliquer le même algorithme mais en groupant les espacements par mot et non pas par caractère...

C'est l'option de Microcro World me semble t'il...

[chrislcf]

Oulala Oulala ...

Merci beaucoup pour ces informations.

Tu es pas mal clair dans tes explications... Mais comme je ne suis pas un très grand codeur ... C'est la mise en pratique qui va me poser quelques soucis je pense.

Bon je vais me lancer pas à pas la dedans...

Je te dis à dans pas longtemps pour mon prochain pb

Merci encore.

[chrislcf]

Ok alors pour le moment ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
'Recherche du nb de caractères dans la chaîne de caractère
            Dim NbCarac As Integer = Len(dsModule.Tables("Info").Rows(0)(2).ToString())
            'Recherche du nombre de lignes en Double
            Dim NbLigne As Double = NbCarac / 90
            'Recherche du nombre de lignes en Integer --> On ajoute une ligne
            Dim NbLigneInt As Integer
            NbLigneInt = CType(NbLigne, Integer) + 1
            Me.Message.Text = NbLigneInt.ToString

Mais comment je vais faire pour lui dire d'aller à ligne au bout de tant de caractères ? ou de tant de pixels ?

[chrislcf]

Une autre image avec une police plus grande

[Totanne]

Pour ton histoire de fond blanc ou noir :
- DrawPath te dessine le contour à la couleur voulue
- FillPath te rempli le fond à la couleur voulue

Pour le reste, je vois pas trop ce que tu veux faire ...
A partir de DrawString et GraphicsPath tu as de toute facon tous les éléments en main pour contraindre ton texte.