Programación General > Visual Basic 6.0 e inferiores

 Re: ver las extension de las fuentes del sistema

(1/1)

SpeedCAD:
Hola...

Necesito saber la extension de las fuentes que estan instaladas en el sistema...

Se supone que yo las veo de esta manera:

For x = 0 To Screen.FontCount - 1
    cmbFuentes.AddItem Screen.Fonts(x)
Next x

Pero ademas de ver todas las fuentes en un combobox, tambien necesito la extension de cada una de estas, el problema que tengo es que cuando aplico las fuentes a otro programa no la revonoce por que no esta la extension, si alguiente sebe como ver la extension se lo agradeceria...

Deberia quedar algo asi:

For x = 0 To Screen.FontCount - 1
    cmbFuentes.AddItem Screen.Fonts(x) & ".TTF"

Siendo .TTF que lo ponga automaticamente ya que no todas las fuentes tienen la misma extension...

Espero haber sido claro en la pregnuta...

Un saludo de SpeedCAD...:)
CHILE
FELIZ AÑO NUEVO
Next x

SpeedCAD:

--- Citar ---Originalmente publicado por SpeedCAD
Hola...

Necesito saber la extension de las fuentes que estan instaladas en el sistema...

Se supone que yo las veo de esta manera:

For x = 0 To Screen.FontCount - 1
    cmbFuentes.AddItem Screen.Fonts(x)
Next x

Pero ademas de ver todas las fuentes en un combobox, tambien necesito la extension de cada una de estas, el problema que tengo es que cuando aplico las fuentes a otro programa no la revonoce por que no esta la extension, si alguiente sebe como ver la extension se lo agradeceria...

Deberia quedar algo asi:

For x = 0 To Screen.FontCount - 1
    cmbFuentes.AddItem Screen.Fonts(x) & ".TTF"

Siendo .TTF que lo ponga automaticamente ya que no todas las fuentes tienen la misma extension...

Espero haber sido claro en la pregnuta...

Un saludo de SpeedCAD...:)
CHILE
FELIZ AÑO NUEVO
Next x
--- Fin de la cita ---


Perdon no tienen la misma extension las fuentes

Navegación

[0] Índice de Mensajes