La idea de este articulo es mediante Visual Basic poder tener un listado de todas las fuentes que hay instaladas en el sistema.

Para esto utilizaremos el objeto Screen que contiene una propiedad llamada Fonts que a su ves contiene la lista de fuentes instaladas en el sistema, con el programa que hoy armaremos podremos obtener el listado de las fuentes y cuando el usuario haga click en una fuente le mostraremos su formato.

Primer Paso

Obiamente abrimos el Visual Basic y agregamos al formulario los siguientes controles: un CommandButton al cual como Caption le ponemos "Cargar Fuentes", un ListBox al cual le establecemos la propiedad Sorted = True y un TextBox al cual le modificamos la propiedad Text (que seguramente aparece que es igual a text1) la dejamos igual a nada es decir borramos text1, tambien hay que ir y la propiedad Font, entrar y modificar el tamaño de la fuente a 16.

La dispocicion de los controles en el formulario es la siguiente...

Segundo Paso

Ahora agregaremos el codigo que nos permite mostrar las fuentes y tambien verlas al hacer un click sobre estas. Entonces en el mismo formulario ponemos la vista de codigo fuente y agregamos lo siguiente...

Private Sub Command1_Click()
Dim I As Integer

List1.Clear

For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I

List1.ListIndex = 0
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
Text1.Font = List1.List(List1.ListIndex)
End Sub

Explicando el Codigo

Tenemos el procedimiento o sub Command1_Click() que se produce cuando el usuario hace click sobre el boton que agregamos, lo palabre clave Dim define una variable llamada I del tipo entera (integer), luego limpiamos el control List1 que es la lista que contendra todas las fuentes, ¿que pasa si no lo limpiamos? puede ser que el usuario haga click dos veces sobre el boton "Cargar Fuentes" entoces si no limpiamos la lista tendremos las fuentes repetidas. Luego de limpiar la lista entramos en un bucle que se repite hasta que I sea igual a Screen.FontCount - 1, FontCount contiene la cantidad de fuentes que hay en el sistema y le agregamos - 1 por que empezamos a contar desde 0. En la ultima linea de este procedimeinto estamos indicando que se seleccione el primer elemento de la lista.

List1_Click()

Aqui va el codigo que nos permitira mostrar la fuente, lo que hacemos es simple establecemos la propiedad Text del control Text1 a la fuente seleccionada en List1 y lo mismo hacemos con la propiedad Font, de esta manera cuando al usuario hace click por ejemplo en le fuente Arial podra ver cual es su formato.

Bueno, sencillo pero util, para aquellos que esten armando procesadores de texto o programas de diseño les va a ser util.