Gérer dynamiquement la taille des caractères dans un form VB.NET

**freddyev** · 03/04/2011, 18h58

Bonjour à tous,

Je développe un prg de jeu de lettres pour malvoyants et je voudrais gérer dynamiquement la taille des caractères des labels en cliquant sur un bouton + et -.

Cela paraît assez simple en théorie mais je ne trouve pas par quel moyen y parvenir.

Je pensais à une qq chose du genre "lblLettre1.Font.Size = lblLettre1.Font.Size + 20" mais ".Font.Size" est readonly.
Quelqu'un aurait-il une solution?

Merci d'avance

**tomlev** · 03/04/2011, 20h18

Il faut changer tout l'objet Font :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oldFont As Font = lblLettre1.Font.Size
Dim newFont As New Font(oldFont.FontFamily, oldFont.Size + 20, oldFont.Style)
lblLettre1.Font = newFont

**freddyev** · 03/04/2011, 20h45

Merci pour ta réponse mais l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim oldFont As Font = lblLettre1.Font.Size

me donne le message

Impossible de convertir une valeur de type 'Single' en 'System.Drawing.Font'

Je voudrais redimensionner tous les labels.text de mon form par un For Each...

**tomlev** · 03/04/2011, 20h46

Envoyé par freddyev

Merci pour ta réponse mais l'instruction "Dim oldFont As Font = lblLettre1.Font.Size" me donne le message
"Impossible de convertir une valeur de type 'Single' en 'System.Drawing.Font' "

Ah oui pardon, j'ai copié/collé un peu vite... enlève juste le .Size

Envoyé par freddyev

Je voudrais redimensionner tous les labels.text de mon form par un For Each...

Pas la peine, change plutôt la Font de toute la fenêtre, ça changera aussi pour les contrôles enfants