Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    Try
        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.

 

 

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