Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: Intermediate
May 5, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

IsFontInstalled - Test whether a font name and size is supported

' Test whether a font name and size is supported
' Returns True if the font is supported, False otherwise
' If the font is supported but the size is not, it returns the actual font size 
' in the second argument
' If the font isn't supported, it return the system font name and size in the 
' two arguments.
' Example:
'   Dim fontName As String = "Times New Roman"
'   Dim fontSize As Single = 48
'   Debug.WriteLine(IsFontInstalled(fontName, fontSize))
'   Debug.WriteLine(fontName & " - " & fontSize)
'   fontName = "Not a valid font, of course!"
'   Debug.WriteLine(IsFontInstalled(fontName, fontSize))
'   Debug.WriteLine(fontName & " - " & fontSize)

Function IsFontInstalled(ByRef fontName As String, Optional ByRef fontSize As _
    Single = 8) As Boolean
        Dim fnt As New Font(fontName, fontSize)
        IsFontInstalled = (fnt.FontFamily.Name = fontName)
        fontName = fnt.FontFamily.Name
        fontSize = fnt.Size
    Catch e As Exception
        Return False
    End Try
End Function
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date