Vérifier l'existance d'une FontRésolu

Question

Bonjour tout le monde!
Voila mon problème, j'utilise une font autre que celle fourni avec windows.
J'ai créé un bout de code me permettant d'ouvrir cette font (donc si elle est inaxistante, génération d'une erreur) mais ca ne marche pas, j'aurais voulu savoir si il faut utilisé une méthode spécial, et le ptit morceaux de code serais super sympa :p
Merci d'avance & Thx l'équipe de vbfrance c'est super :-p
AigleNoir  ?-)

pcpunch · Accepted Answer

tu peu toujours verifier par rapport au police d'impression et d'écran si elle est presente :


Dim NomFont As String
Dim Existe As Boolean

NomFont = "arial"
Existe = False
For i = 0 To Screen.FontCount
Me.Caption = "Police ecran :" & Screen.Fonts(i)If LCase(NomFont) LCase(Screen.Fonts(i)) Then Existe True: Exit For
Next

For i = 0 To Printer.FontCount
Me.Caption = "Police impression :" & Printer.Fonts(i)If LCase(NomFont) LCase(Printer.Fonts(i)) Then Existe True: Exit For
Next

If Existe Then MsgBox NomFont & " : présente" Else MsgBox NomFont & " : Absente"


il existe peu etre une méthode plus simple, peu etre du coté du dossier des fonts de windows( en comparant le nom de la police ??)

DDelec24 · Answer

Merci t'es génial ca marche nickel :-D

Si il existe plus simple, je voit mal, enfin je n'est encore que des connaissances relativement vague du VB, la preuve, j'ignorai l'existance de "screen." :(
CiaOo et vive le VB!

AigleNoir  ?-)

Vérifier l'existance d'une Font

2 réponses

Discussions similaires