Программа показывающая все шрифты на компе!

Из этой программы мы узнаем какие подчерки установлены на вашем компьютере! Уже знаем? Это хорошо! А для чего тогда прога? Для повышение уровня знаний языка Visual Basic! Не важно как это используется, важно просто это знать и в нужный момент применить! Начинаем, ну тут все как обычно! создайте форму, киньте туда ListBox, создайте процедуру Form_Load, дважды щелкнув по форме. Вот теперь можно приступать к програмированию!

Dim i As Integer

For i = 0 To Screen.FontCount - 1

List1.AddItem Screen.Fonts(i)

Next i

Все! Программа готова! Как вы заметили (если нет, то ничего страшного) в этой программе мы использовали оператор for, next это все часто используется с массивами! Если хотите узнать больше, то читайте следующею статью!