Discussion :

[ganon551]

Voila, mon probleme est le suivant ::
Je n'arrive pas a activer le "showfont" dans une common dialog, j'ai beau essayer, il me met que "Aucune police n'est installée, allez voir dans panneau de configuration pour en installer."
Seulement, mes polices sont trés bien installées, je n'ai trouvé aucun répertoire dans le dossier de Visual Basic qui s'appele ou qui contient un dossier nommé "polices" ou "font".
Pouvez vous m'aider???
Merci d'avance!

[jmfmarques]

Il est nécessaire de fixer d'abord un drapeau :

essaye :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
   dim toto as string
    CommonDialog1.Flags = cdlCFBoth    '===ce drapeau est nécessaire
    CommonDialog1.ShowFont
    toto = CommonDialog1.FontName
    MsgBox toto
End Sub

tu sélectionnes une font dans la boîte, tu valides et tu vois...

[ganon551]

ok, merci, j'essairaie ça tout a l'heure !!!