Changer la taille du text écrit dans un TextB
Fermé
seema2.3
Messages postés
8
Date d'inscription
vendredi 24 septembre 2010
Statut
Membre
Dernière intervention
12 décembre 2010
-
17 oct. 2010 à 23:52
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 18 oct. 2010 à 11:04
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 18 oct. 2010 à 11:04
A voir également:
- Changer la taille du text écrit dans un TextB
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Réduire la taille d'un pdf - Guide
- Taille 32x32 correspondance ✓ - Forum Loisirs / Divertissements
- Mon clavier n'écrit plus ✓ - Forum Clavier
1 réponse
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 18/10/2010 à 11:04
Modifié par lermite222 le 18/10/2010 à 11:04
Bonjour,
Ton "petit" problème n'est pas si petit que ça, .net ne fait certainement pas dans la simplicité !!
Colle ce code dans ta form avec ton combo et 2 checkBox
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Ton "petit" problème n'est pas si petit que ça, .net ne fait certainement pas dans la simplicité !!
Colle ce code dans ta form avec ton combo et 2 checkBox
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Byte, L, S As Integer
TextBox1.Text = "Essais"
S = TextBox1.Font.Size
For i = 8 To 12 Step 2
ComboBox1.Items.Add(i)
If i = S Then L = ComboBox1.Items.Count - 1
Next
Try
ComboBox1.SelectedIndex = L
Catch
ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim oldFont As Font = TextBox1.Font
Dim newFont As Font = New Font(oldFont.FontFamily, Val(ComboBox1.Text))
TextBox1.Font = newFont
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Dim style As FontStyle = IIf(TextBox1.Font.Style And FontStyle.Bold, TextBox1.Font.Style Xor FontStyle.Bold, TextBox1.Font.Style Or FontStyle.Bold)
TextBox1.Font = New Font(TextBox1.Font, style)
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
Dim style As FontStyle = IIf(TextBox1.Font.Style And FontStyle.Italic, TextBox1.Font.Style Xor FontStyle.Italic, TextBox1.Font.Style Or FontStyle.Italic)
TextBox1.Font = New Font(TextBox1.Font, style)
End Sub
End Class
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)