Visual Basic 2005

Visualizador de Fuentes en VB 2005

May 30th

Posted by cuisi in Visual Basic 2005 | 107 vistas

Despues de varios dias sin publicar nada, hoy publico esto que es basicamente lo mismo que el post anterior, solo que ahora en Vb 2005.

El codigo lo tenia desde hace unos dias solo que me faltaba una linea de codigo que me marcaba error, pero ya quedo listo con una manita de Angel Lopez de Recursos del Web, bueno sin mas por el momento les dejo el codigo

PLAIN TEXT

VB.NET:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ff As FontFamily
For Each ff In System.Drawing.FontFamily.Families
ListBox1.Items.Add(ff.Name)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
End Sub
Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
TextBox1.Text = CStr(ListBox1.Items(ListBox1.SelectedIndex))
TextBox1.Font = New System.Drawing.Font(TextBox1.Text, TextBox1.Font.Size, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
End Sub
End Class