La Web del Programador: Comunidad de Programadores
 
    Pregunta:  1368 - DETERMINAR SI UNA FUENTE ES TRUETYPE
Autor:  Juan Pablo Véliz
Como puedo saber que una fuente instalada en el sistema es TrueType, esto lo quiero hacer para con un imagecombo ponerle un icono a las fuentes true type

Gracias

  Respuesta:  José María Pascual García
La orden FontCount,Devuelve el número de fuentes disponibles para el dispositivo de presentación actual o la impresora activa.

Sintaxis

objeto.FontCount

Objeto representa una expresión de objeto cuyo resultado es un objeto de la lista Aplicable a.

Comentarios

Usa esta propiedad con la propiedad Fonts para ver la lista de las fuentes disponibles para pantalla o impresora. Las fuentes disponibles en Visual Basic varían de acuerdo con la configuración del sistema, y los dispositivos de presentación y de impresión.

expresión de objeto: "Una expresión que especifique a un determinado objeto. Esta expresión puede incluir cualquiera de los contenedores de objetos. Por ejemplo, si una aplicación tiene un objeto Applicación que contiene un objeto Documento que contiene un objeto Texto, las siguientes expresiones de objetos son válidas:

Applicación.Documento.Texto
Applicación.Texto
Documento.Texto
Texto"

EJEMPLO:
Este ejemplo presenta la lista de fuentes de impresora en un control ListBox. Para poner este ejemplo en práctica, pegua el código en la sección Declaraciones de un formulario que contenga un control ListBox llamado List1, y después presione F5 y haga clic en el formulario.

Private Sub Form_Click ()

Dim I ´ Declara variable.

For I = 0 To Printer.FontCount -1 ´ Halla número de fuentes.
List1.AddItem Printer.Fonts (I) ´ Las mueve a la lista.

Next I
End Sub

Espero haberte ayudado...
Un saludo
José María