| Вопрос: Как перебрать все Font на ком-пе? | Добавлено: 07.02.03 10:52 |
Автор вопроса:  Paul
|
|
Извините за "пустую" тему - что-то с и-нетом. Нужно перебрать все Font на машине и занести, допустим в массив. Я так понимаю, что только через API. Тогда подскажите какие Function. (Уточняю. Диалоговое окно с выбором Font не нужно) Спасибо |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Ruslion Вопросов: 6 Ответов: 5 |
Профиль | | #1 | Добавлено: 07.02.03 13:20 |
|
Dim i As Byte For i = 0 To Screen.FontCount - 1 Print Screen.Fonts(i) Next i И никаких API-шек 
|
||
Страница: 1 |