Polices

slr Messages postés 75 Date d'inscription mercredi 23 octobre 2002 Statut Membre Dernière intervention 13 juillet 2004 - 12 août 2003 à 11:24
slr Messages postés 75 Date d'inscription mercredi 23 octobre 2002 Statut Membre Dernière intervention 13 juillet 2004 - 12 août 2003 à 21:56
Bonjour,

est-ce que quelqu'un sait comment faire pour récupérer la liste des polices installées sur un micro sans passer par la méthode Printer (puisque je n'ai pas d'imprimante installée).

Ou alors, comment récupérer le nom de police d'un fichier .ttf, .fon installés dans c:\windows\fonts

Merci d'avance.
slr

2 réponses

cs_philcam Messages postés 132 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 17 octobre 2008
12 août 2003 à 14:17
Tu prends un Form avec un ComboBox
tu mets ça dedans

Private Sub Form_Load()
Dim I
For I = 1 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next I

et le tour est joué

Ciao
0
slr Messages postés 75 Date d'inscription mercredi 23 octobre 2002 Statut Membre Dernière intervention 13 juillet 2004
12 août 2003 à 21:56
nickel, merci, je faisais ça avec Printer et je ne savais pas que ça existait avec Screen !

slr
0
Rejoignez-nous