Crear un visualizador de fuentes con Visual Basic
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:
Visual Basic:
-
Private Sub Command1_Click()
-
Dim font As Integer
-
-
List1.Clear
-
-
For font= 0 To Screen.FontCount - 1
-
List1.AddItem Screen.Fonts(font)
-
Next font
-
-
List1.ListIndex = 0
-
End Sub
-
-
Private Sub List1_Click()
-
Text1.Text = List1.List(List1.ListIndex)
-
Text1.Font = List1.List(List1.ListIndex)
-
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.
Vota esta entrada:
There are 2 comments. Leave a comment!
¬ Rigocolima
#21 May 8th, 2008 at 4:45 am
Disculpa me dejaron un proyecto donde tengo que implementar la solucion que hiciste pero es en visual basic .net 2005 y mmm quisiera saber si usted sabe alguna manera de que se despliegue en un combobox
¬ cuisi
#23 May 30th, 2008 at 4:42 am
Que tal amigo, por fin pongo el codigo, lo que pasa es que e tenido mucho trabajo y poco tiempo para el blog
, espero tener un poco mas de tiempo para el blog
Aca el post http://devblab.net/?p=53