Con un sencillo código podremos ver las fuentes que tenemos instaladas en nuestro equipo y las podremos “testear”.
Para llevar acabo este sencillo programita necesitaremos lo siguiente:

  • 1 CommandButton: con el que hacemos la orden para cargar las fuentes
  • 1 ListBox: con la propiedad Sorted = True (aquí es donde se cagaran nuestras fuentes)
  • 1 TextBox: que es donde podremos testear las fuentes
    • PLAIN TEXT
    Visual Basic:
    1. Private Sub Command1_Click()
    2. Dim font As Integer
    3.  
    4. List1.Clear
    5.  
    6. For font= 0 To Screen.FontCount - 1
    7. List1.AddItem Screen.Fonts(font)
    8. Next font
    9.  
    10. List1.ListIndex = 0
    11. End Sub
    12.  
    13. Private Sub List1_Click()
    14. Text1.Text = List1.List(List1.ListIndex)
    15. Text1.Font = List1.List(List1.ListIndex)
    16. End Sub

    List1.Clear: esta línea es importante ya que con ella limpiaremos la pantalla cada que demos click en el CommandButton, de lo contrario se cargaran las fuentes una y otra vez(de pendiendo de los click) pero "encimadas", esto quiere decir que si le das 3 click sin la linea List1.Clear tendras 3 arial.

    Descargar los archivos