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
| Public Class Form1
Dim v = "DTFCPAZERTYuiopqsdfbrtdrfcp"
Dim alpha = v
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'change la police de caractère et les attributs des carctères
RichTextBox1.Font = New Font("MS UI Gothic", 14)
TextBox1.Font = New Font("MS UI Gothic", 16)
'change un caractère par une pièce d'échec et l'envoi dans rich text box fonctionne aussi avec un text box
v = Replace(v, "r", ChrW(&H265A), 1)
v = Replace(v, "d", ChrW(&H265B), 1)
v = Replace(v, "t", ChrW(&H265C), 1)
v = Replace(v, "f", ChrW(&H265D), 1)
v = Replace(v, "c", ChrW(&H265E), 1)
v = Replace(v, "p", ChrW(&H265F), 1)
v = Replace(v, "R", ChrW(&H2654), 1)
v = Replace(v, "D", ChrW(&H2655), 1)
v = Replace(v, "T", ChrW(&H2656), 1)
v = Replace(v, "F", ChrW(&H2657), 1)
v = Replace(v, "C", ChrW(&H2658), 1)
v = Replace(v, "P", ChrW(&H2659), 1)
RichTextBox1.Text = alpha + " " + v
TextBox1.Text = alpha + " " + v + v + "Pi (" & ChrW(&H3A0) & "), and Sigma (" & ChrW(&H3A3) & ")"
End Sub
End Class |
Partager