Discussion :

[stargates]

Bonjour,

Comment récupérer la taille des polices system dans un combobox




Merci

[SfJ5Rpw8]

en fait c'est quoi le but ? afficher les tailles disponible pour une certaine police ? : :

[stargates]

oui, c'était por récupérer les tailles comme on récupère les polices.

En attendant si il y a une solution,j'ai fait ceci dans le form_load

Code :

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

1
2
3
4
5
6
 
 
Dim fs as Integer
 For fs = 8 to 20
  cboFontSize.Items.Add(fs.ToString)
Next fs

Merci

[neguib]

Après reflexion il n'est pas possible de resoudre directement ton souci car théoriquement ( ) toutes les tailles sont possibles, Avec .Net seuls les noms peuvent être lister
Bon comme il s'agit des polices système tu as à ta disposition une classe dédiée à celà InstalledFontCollection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim fs As InstalledFontCollection
Dim ff() As FontFamily
 
REM :recuperer les polices système
fs = New InstalledFontCollection()
 
REM :recuperer la liste des FontFamily
ff = fs.Families
 
REM :lister les noms de Font
Dim i As Integer
Dim f As FontFamily
For i = 0 To ff.Length - 1
  f = ff(i)
  If Not IsNothing(f) Then MonCombo.Add(f.Name)
Next

Maintenant pour les tailles un simple textbox (numerique ) devrait suffire
Sinon explique moi la fonctionnalité que tu tentes de faire pour l'utilisateur, nous trouverons peut être une astuce (j'ai volontairement mis de côté la lecture des fichiers ttf trop galère )

[stargates]

ok merci