PrivateFontCollection

07/11/2005 - 15:59 por Jesus | Informe spam

Hola a todos
Estoy intentanto utilizar una fuente sin instalarla en el equipo:

Dim FuentePrivada As New System.Drawing.Text.PrivateFontCollection

FuentePrivada.AddFontFile("E:\Fuentes\MiFuente.TTF")
Dim FamiliaFuentes() As FontFamily = FuentePrivada.Families
Dim FuenteNombre As String = FamiliaFuentes(0).Name
Dim MiFuente As New Font(FuenteNombre, 12, FontStyle.Regular,
GraphicsUnit.Point)

pero MiFuente siempre tiene Sans Serif.
¿Que es lo que hago mal o que me falta por hacer?
Un saludo

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 José Manuel Agüero

07/11/2005 - 20:51 | Informe spam

Hola, Jesus:

Prueba:

Dim MiFuente As New Font(FamiliaFuentes(0), 12, FontStyle.Regular, GraphicsUnit.Point)

Saludos.

"Jesus" escribió en el mensaje news:
| Hola a todos
| Estoy intentanto utilizar una fuente sin instalarla en el equipo:
|
| Dim FuentePrivada As New System.Drawing.Text.PrivateFontCollection
|
|
| FuentePrivada.AddFontFile("E:\Fuentes\MiFuente.TTF")
| Dim FamiliaFuentes() As FontFamily = FuentePrivada.Families
| Dim FuenteNombre As String = FamiliaFuentes(0).Name
| Dim MiFuente As New Font(FuenteNombre, 12, FontStyle.Regular,
| GraphicsUnit.Point)
|
| pero MiFuente siempre tiene Sans Serif.
| ¿Que es lo que hago mal o que me falta por hacer?
| Un saludo

Responder a este mensaje

#2 Jesus

07/11/2005 - 22:07 | Informe spam

Muchas gracias José Manuel.

Pense que habia que darle el nombre de la familia.

Un saludo

"José Manuel Agüero" escribió:

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida