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
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
que onda ricardo... oye si me parece muy bien que quieras colaborar en el blog
de hecho actualice la propuesta y ahora esta mucho mejor... imagino que te va a gustar... pasate a leerla y para que me agregues al gtalk (arlm01@gmail.com) y pasarte el user y pass para que entres al panel de administracion... saludos
Paso a agradecerle por el codigo me resulto muy util ya que estoy haciendo un editor de texto estilo "word" con MDI y proximamente le agregare la correccion ortografica pero por lo pronto me soluciono el problema de cambiar las fuentes muchisimas gracias
Que tal Angel lópez, oye no te e podio mandar el mail porque e andado medio ocupadon pero en estos dias te agrego o te mando el mail, saludos.
Rigocolima, de nada amigo, ya sabes pa la otra