Конференция VBStreets

**angelina** » 05.11.2003 (Ср) 8:58

Как программно узнать стоит ли на машине нужный мне шрифт и если нет, то установить его??? Заранее всем большое спасибо!!!!

**Susanin** » 05.11.2003 (Ср) 15:35

способ корявый.....

Просты перебором списка файлов в папочке Fonts.....

**angelina** » 06.11.2003 (Чт) 8:29

спасибочки, вопросы уже разрешились
с регистрацией нового шрифта проблем нет, а вот узнаю я установлен ли нужный мне шрифт вот именно таким корявым образом, может быть по вопросу "установлен ли на машине такой-то шрифт" есть еще идеи???

**kif** » 06.11.2003 (Чт) 9:17

Альтернатива

Чтобы не искать папочку Font
Есть объект Screen в VB, у него есть коллекция Fonts и их количество FontCount

For i=0 to Screen.FontCount-1
if Screen.Fonts(i)="My Font" then
msgbox "Ok"
endif
next

**kif** » 06.11.2003 (Чт) 9:18

Альтернатива

Чтобы не искать папочку Font
Есть объект Screen в VB, у него есть коллекция Fonts и их количество FontCount

For i=0 to Screen.FontCount-1
if Screen.Fonts(i)="My Font" then
msgbox "Ok"
endif
next

**Ducis** » 06.11.2003 (Чт) 14:36

Screen.FontCount - это для экранных шрифтов.
Есть еще Printer.FontCount - для шрифтов принтера.
И в цикле писать Printer.Fonts(i) соотв.

**angelina** » 06.11.2003 (Чт) 14:45

все замечательно работает - всем огромное спасибо!!!!!

Конференция VBStreets

Работа со шрифтами!!!!!

Работа со шрифтами!!!!!

Кто сейчас на конференции