Список шрифтов на Вашем компе

При помощи следующего кода Вы можете получить список всех шрифтов на компьютере пользователя! Для этого можно создать объект List1 и в событие Form_Load поместить:

Dim m As Integer

'запускаем цикл, который повториться столько раз, сколько имеется
'шрифтов минус один, т.к. счёт идёт от нуля
For m = 0 To Screen.FontCount - 1
    'в List1 добавляем элемент массива Screen.Fonts cоответсвующий числу m
    List1.AddItem Screen.Fonts(m)
Next

              

 

 

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ