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
