Discussion :

[Shennong]

Bonjour,

J'ai un soucis avec ma richtextbox, je n'arrive à trouver le moyen de parvenir au résultat que je souhaite.

Je m'explique :

J'ai un Richtextbox dans lequel je souhaiterai afficher :
Ligne 1 => "Date de sortie : " en gras et rouge, suivi de "1986" en normal et blanc
Puis ligne 2 => "Tarif :" toujours en gras et rouge, suivi de "1295 F" en normal et blanc, etc... sur plusieurs lignes.

Mais je m'arrache les cheveux à trouver comment mettre en forme (ça encore j'ai une piste ou deux), et bien mettre les texte à la suite et à la ligne quand il faut (là j'ai plus de cheveux).

Est-ce que quelqu'un pourrait m'expliquer et me donner un bout de code avec l'exemple utilisé ci-dessus svp ?


Merci d'avance pour votre aide précieuse.
Cordialement-

--
Shennong

[DD-78]

Bonjour,

Voici un exemple pouvant répondre à tes questions :

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
Option Explicit On
Option Strict On
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Démo police de caractère."
        init_RichTextBox1()
    End Sub
    Private Sub init_RichTextBox1()
        Dim rc As Char = ControlChars.Cr 'retour à la ligne
        RichTextBox1.BackColor = Color.Black 'Couleur d'arrière-plan du contrôle.
        Dim nomPolice As String = "Arial" 'Choix de la police de caractère.
        Dim ht_Police As Integer = 10 ' Hauteur de police de caractère.
        Dim policeGras, policeNormal As FontStyle
        '---------------------------------------------------------------------
        policeGras = FontStyle.Bold ' Police de caractère en gras.
        policeNormal = FontStyle.Regular ' Police de caractère normal.
        RichTextBox1.SelectionColor = Color.Red ' Police de caractère rouge.
        RichTextBox1.SelectionFont = New Font(nomPolice, ht_Police, policeGras)
        RichTextBox1.SelectedText = "Date de sortie : " ' Ajoute un texte à RichTextBox1 sans retour à la ligne
        RichTextBox1.SelectionColor = Color.White ' Police de caractère blanche.
        RichTextBox1.SelectionFont = New Font(nomPolice, ht_Police, policeNormal)
        RichTextBox1.SelectedText = "1986" & rc ' Ajoute un texte à RichTextBox1 avec retour à la ligne
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.SelectionFont = New Font(nomPolice, ht_Police, policeGras)
        RichTextBox1.SelectedText = "Tarif : "
        RichTextBox1.SelectionColor = Color.White
        RichTextBox1.SelectionFont = New Font(nomPolice, ht_Police, policeNormal)
        RichTextBox1.SelectedText = "1295 F"
        'Etc...
    End Sub
End Class

[Shennong]

Super, merci DD-78, effectivement ça fonctionne bien en faisant ainsi. J'ai compris comment cela fonctionnait, c'est pas si difficile finalement, fallait juste bien comprendre le rôle de chaque méthode.

Beau boulot !

--
Shennong