Como enumerar las fuentes instaladas en el ordenador

Ya está, lo he encontrado nada más terminar de escribir. Ya que he sacado el
tema, lo pongo por si a alguien le interesa:


'Obtener la colección de fuentes instaladas
Dim fonts as New System.Drawing.Text.InstalledFontCollection()
'Obtener una matriz con todas las familias de fuentes instaladas
Dim FontFamilies() as FontFamily = fonts.Families
'Crear una lista delimitada por comas con los nombres de las familias
Dim list as string
Dim fontFam as FontFamily
For Each fontFam in fontFamilies
If list <>"" then list &= ", "
list &= fontFam.Name
Next

Debug.WriteLine (list)



"Jocayol" escribió en el mensaje
news:

Hola, ahora no me acuerdo como se podían enumerar los diferentes tipo de
fuentes que están instaladas en el ordenador. Lo he estado mirando en la
ayuda y en los libros, pero a pesar de que sé que lo he leído no consigo
encontrarlo. ¿Me podéis ayudar?
Gracias

increible, justo estaba escribiendo la pregunta y vas tu y te la
contestas. Esto es telepatia y lo demas historias :D

Y ya q estamos, a ver si sabes esta, q va al hilo:

Tengo un ritchtextbox y me gustaria saber si hay algun control para
seleccionar fuente, no un fontdialog sino un control como el de word, el
tipico dropdownlist con las fuentes disponibles, tamaños etc. Imagino q
no sera demasiado complicado programarlo a mano pero si ya esta hecho... :)

Mil gracias y un saludo.

'Obtener la colección de fuentes instaladas
Dim fonts as New System.Drawing.Text.InstalledFontCollection()
'Obtener una matriz con todas las familias de fuentes instaladas
Dim FontFamilies() as FontFamily = fonts.Families
'Crear una lista delimitada por comas con los nombres de las familias
Dim list as string
Dim fontFam as FontFamily
For Each fontFam in fontFamilies
If list <>"" then list &= ", "
list &= fontFam.Name
Next

Debug.WriteLine (list)

Eso es justo lo que yo he puesto un combobox.
He puesto un panel con Dock = Izquierda, con dos combobox, como el de Word
el uno para el tipo de letra y el otro para el tamaño y luego he puesto otro
panel con Dock = fill para meter un toolbar y a su vez los dos paneles en
otro que los contiene, de manera que me ha quedado muy parecido a Word. No
estoy seguro de haberlo explicado bien, si no te ha quedado claro me lo
dices.
Ya que estamos y por si lo echas de menos te diré que me he bajado iconos de
office de un archivo que es Mic.Office que encontraras en esta pagina
http://www.lawebdelprogramador.com/icocur.php


Si se te ocurre algo mejor será bien recibido.
Un saludo

"olopeich" escribió en el mensaje
news:

increible, justo estaba escribiendo la pregunta y vas tu y te la
contestas. Esto es telepatia y lo demas historias :D

Y ya q estamos, a ver si sabes esta, q va al hilo:

Tengo un ritchtextbox y me gustaria saber si hay algun control para
seleccionar fuente, no un fontdialog sino un control como el de word, el
tipico dropdownlist con las fuentes disponibles, tamaños etc. Imagino q no
sera demasiado complicado programarlo a mano pero si ya esta hecho... :)

Mil gracias y un saludo.

'Obtener la colección de fuentes instaladas
Dim fonts as New System.Drawing.Text.InstalledFontCollection()
'Obtener una matriz con todas las familias de fuentes instaladas
Dim FontFamilies() as FontFamily = fonts.Families
'Crear una lista delimitada por comas con los nombres de las familias
Dim list as string
Dim fontFam as FontFamily
For Each fontFam in fontFamilies
If list <>"" then list &= ", "
list &= fontFam.Name
Next

Debug.WriteLine (list)

Muchas gracias Jocayol, en realidad no creo q se pueda mejorar tu
enfoque. Yo lo estoy haciendo para un richtextbox (ya veremos como queda
al final) y no necesito una cosa demasiado 'featurosa' :) de todos mdos
en cuento a los iconos he usado los que vienen en common7, en el
directorio de graphics y con eso voy q txuto la verdad... Hace poco
rebusque iconos por la inet y tengo un par de links q no estan mal, si
eso te los posteo.

Voy a ver como sacar los tamaños de la fuente seleccionada y luego a
pelearme con el rich, q no parece muy complicado pero ya sabes...
siempre hay algo q se atasca :(

Muchas gracias otra vez y un saludete.

Jocayol escribió:

Eso es justo lo que yo he puesto un combobox.
He puesto un panel con Dock = Izquierda, con dos combobox, como el de Word
el uno para el tipo de letra y el otro para el tamaño y luego he puesto otro
panel con Dock = fill para meter un toolbar y a su vez los dos paneles en
otro que los contiene, de manera que me ha quedado muy parecido a Word. No
estoy seguro de haberlo explicado bien, si no te ha quedado claro me lo
dices.
Ya que estamos y por si lo echas de menos te diré que me he bajado iconos de
office de un archivo que es Mic.Office que encontraras en esta pagina
http://www.lawebdelprogramador.com/icocur.php


Si se te ocurre algo mejor será bien recibido.
Un saludo

No se si estas tratando de hacer lo que yo, pero te digo: estoy
intentando hacer un combobox que despliegue las fuentes y aplique la
propia fuente a cada entrada. Leyendo en las news parece q no hay manera
sencilla de hacer esto (pense q se podria definir el estilo de cada item
del combo pero no parece directamente posible) finalmente me he decidido
por esta pagina http://www.codeproject.com/cs/combo...tcombo.asp
q trae un control q lista las fuentes, es un combobox normal pero con
algunos metodos sobrecargados q se encargan de variar el aspecto de cada
item. Lo bueno es q viene ya preparado para hacer lo que queria: listar
las fuentes instaladas.

Eso es justo lo que yo he puesto un combobox.
He puesto un panel con Dock = Izquierda, con dos combobox, como el de Word
el uno para el tipo de letra y el otro para el tamaño y luego he puesto otro
panel con Dock = fill para meter un toolbar y a su vez los dos paneles en
otro que los contiene, de manera que me ha quedado muy parecido a Word. No
estoy seguro de haberlo explicado bien, si no te ha quedado claro me lo
dices.
Ya que estamos y por si lo echas de menos te diré que me he bajado iconos de
office de un archivo que es Mic.Office que encontraras en esta pagina
http://www.lawebdelprogramador.com/icocur.php