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 |
