Список всех фонтов

[Генрих]

У меня есть образец на Visual C++, который выводит список всех фонтов. Может кто-нибудь знает где взять подобный пример на Visual Basic. Не хочется переделывать самому.

[tyomitch]

http://groups.google.com/groups?selm=20 ... put=gplain


Если нужны только имена шрифтов, то

Код: Выделить всё

Dim i As Integer
For i = 0 To Screen.FontCount - 1
Debug.Print Screen.Fonts(i)
Next


[alibek]

Подозреваю, что ему нужны скорее Printer.Fonts().

[Ennor]

Какая разница - заменит в коде Темыча слово Screen на слово Printer, и вся любовь...

[kif]

Совершенно верно, но нужно знать что у объекта Printer свои шрифты

[Генрих]

Я наверное совсем заучился - забыл про коллекцию Screen.Fonts Хотел через API дурак !!! И ведь знал !!!

Как сделать в RichTextBox смену шрифта выделенного слова?
Я могу только всего текста:

RichTextBox1.Text.Font.Name = "Arial"

Но так же нeльзя

RichTextBox1.SelText.Font.Name = "Arial"

[KiloGraf]

...вот так, можно:

RichTextBox1.SelFontName = "Arial"

.