Cómo determinar qué fuentes están instaladas en el sistema.


La colección Fonts de los objetos Screen y Printer proporcionan una lista de todas las fuentes instaladas en el sistema operativo. El siguiente ejemplo muestra cómo recuperar las fuentes de pantalla e impresora instaladas:

1º Cree un nuevo proyecto en Visual Basic. Por defecto, se crea el formulario Form1. 

2º Añada un control Listbox al Form1. Por defecto, la lista tiene el nombre List1. 

3º Añada un botón tipo Command al Form1. Por defecto, el botón tiene el nombre Command1. 

4º Añada un segundo botón tipo Command al Form1. Por defecto, el botón tiene el nombre Command2. 

5º Añada el siguiente código al evento Click de Command1. 

Private Sub Command1_Click()
List1.Clear
Dim X As Integer
For X = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(X)
Next X
End Sub 

6º Añada el siguiente código al evento Click de Command2. 

Private Sub Command2_Click()
List1.Clear
Dim X As Integer
For X = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(X)
Next X
End Sub