UN SIMPLE VISUALISATEUR DE POLICES POUR ILLUSTRER LA FONCTION "SCREEN.FONTS"

Signaler
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
cs_pfft
Messages postés
18
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
30 janvier 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8206-un-simple-visualisateur-de-polices-pour-illustrer-la-fonction-screen-fonts

cs_pfft
Messages postés
18
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
30 janvier 2004

Très chouette cette petite source...
cs_philcam
Messages postés
132
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
17 octobre 2008

super, tu m'as l'air d'être le mec "j'ai rien compris à la vie"
si je mets ça c'est justement que j'ai horreur d'utiliser le common dialog à la con
merci pour ta participation qd même
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Encore plus court :
ajouter sur la feuille un contrôle Dialogue Commun (CommonDialog1)
et exécuter le code suivant :

CommonDialog1.Flags = cdlCFPrinterFonts ' ou cdlCFScreenFonts ou cdlCFBoth
CommonDialog1.ShowFont