IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Création d'une image à partir d'un String.


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Mai 2008
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 121
    Par défaut Création d'une image à partir d'un String.
    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.

  2. #2
    Membre éprouvé
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    126
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2008
    Messages : 126
    Par défaut
    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.

  3. #3
    Membre confirmé
    Inscrit en
    Mai 2008
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 121
    Par défaut
    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 ?

  4. #4
    Membre expérimenté
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    299
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Septembre 2005
    Messages : 299
    Par défaut
    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à...

  5. #5
    Membre expérimenté
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    299
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Septembre 2005
    Messages : 299
    Par défaut
    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...

  6. #6
    Membre confirmé
    Inscrit en
    Mai 2008
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 121
    Par défaut
    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.

  7. #7
    Membre confirmé
    Inscrit en
    Mai 2008
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 121
    Par défaut
    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 ?

  8. #8
    Membre confirmé
    Inscrit en
    Mai 2008
    Messages
    121
    Détails du profil
    Informations forums :
    Inscription : Mai 2008
    Messages : 121
    Par défaut
    Une autre image avec une police plus grande
    Images attachées Images attachées  

  9. #9
    Membre expérimenté
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    240
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 240
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Création d'une image à partir d'une fenêtre
    Par bbkenny dans le forum VBScript
    Réponses: 10
    Dernier message: 27/03/2011, 04h11
  2. Réponses: 0
    Dernier message: 16/03/2011, 16h18
  3. [FPDF] Création d'une image à partir d'un pdf
    Par Tchupacabra dans le forum Bibliothèques et frameworks
    Réponses: 3
    Dernier message: 04/04/2008, 21h36
  4. Création d'une image à partir de son code binaire
    Par thefaycal dans le forum ASP
    Réponses: 11
    Dernier message: 18/05/2006, 17h39
  5. Réponses: 1
    Dernier message: 03/01/2006, 17h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo