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

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 15 août 2003 à 02:00
cs_pfft Messages postés 18 Date d'inscription vendredi 22 août 2003 Statut Membre Dernière intervention 30 janvier 2004 - 30 août 2003 à 21:33
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
30 août 2003 à 21:33
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
15 août 2003 à 04:28
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 11
15 août 2003 à 02:00
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
Rejoignez-nous