Prüfen, ob Schriftart installiert Die Funktion überprüft, ob eine bestimmte Schriftart auf dem System vorhanden ist.
Autor:   Dietrich Herrmann	Bewertung:	Views:  13.299
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Diese kleine Funktion kann eventuell ganz nützlich sein.
Mit ihr kann man überprüfen, ob eine ganz bestimmte Schriftart auf dem aktuellen System installiert ist.

''' <summary>
''' Existiert ein bestimmter Font im System
''' </summary>
''' <param name="FontfileName">der zu überprüfende Font (Name)</param>
Public Function SystemFontExists(ByVal FontfileName As String) As Boolean
  For i As Integer = 0 To FontFamily.Families.Length - 1
    If UCase(FontFamily.Families(i).Name) = UCase(FontfileName) Then
      Return True
      Exit For
    End If
  Next
  Return False
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.