| Rubrik: Grafik und Font · Font & Text | VB-Versionen: VB6 | 22.03.10 |
 Prüfen, ob Schriftart installiertDie Funktion überprüft, ob eine bestimmte Schriftart auf dem System vorhanden ist | ||
Autor:  Dennis Hemken | Bewertung:  | Views: 14.372 |
| gadgets.hemken.org | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Mit dieser Funktion kann man überprüfen, ob eine ganz bestimmte Schriftart auf dem aktuellen System installiert ist.
' Prüft, ob die angegebene Schrift existiert Public Function SystemFontExists(sFontFileName As String) As Boolean Dim SystemFont As New StdFont SystemFont.Name = sFontFileName SystemFontExists = IIf(sFontFileName = SystemFont.Name, True, False) End Function
Aufruf der Funktion:
Dim strFontFileName As String strFontFileName = "Verdana" MsgBox SystemFontExists(strFontFileName)
