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 |