Font

Method

Used to access the names the installed fonts (0-based).

Usage

result = Font(index)

Part	Type	Description
result	String	The name of the font whose index number is passed. Result is in the appropriate WorldScript encoding.
index	Integer	The number of the font (0-based).

Exceptions

Exception	Reason
OutOfBoundsException	Raised if index is less than 0 or greater than FontCount - 1.

Notes

Fonts are accessed in alphabetical order where font 0 is the first font. Use the FontCount function to determine the number of fonts.

Under macOS, Font returns font families instead of fonts. This is closer to the older Carbon behavior, but it does not return identical results.

Using Custom Fonts in your Applications

Both macOS and Windows have techniques for loading fonts for a specific application.

On macOS, you can use ATSApplicationFontsPath key in Info.plist. You add this key, specifying the relative path of the fonts in the Resources folder of your app bundle.

For Windows, the open-source Windows Functionality Suite provides a method (TemporarilyInstallFont) to do this.

Sample Code

This is a function that determines if the font named passed is installed on the user's computer:

Function FontAvailable(FontName As String) As Boolean
Dim fc As Integer
fc = FontCount - 1

For i As Integer = 0 To fc
If Font(i) = FontName Then
Return True
End If
Next
Return False
End Function