| Вопрос: Список установленных шрифтов | Добавлено: 11.11.04 23:47 |
Автор вопроса:  Smith | ICQ: adamis@list.ru |
| Как узнать список установленных на компе шрифтов шрифтов, чтобы потом их вывести в combobox? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #1 | Добавлено: 12.11.04 14:14 |
 im i As Integer
For i = 1 To Screen.FontCount Combo1.AddItem Screen.Fonts(i) Next i |
||
|
Номер ответа: 2 Автор ответа: MihalыchICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #2 | Добавлено: 12.11.04 14:16 |
| Простите опять NET не заметил! | ||
|
Номер ответа: 3 Автор ответа: Артём Л.ICQ: 280044491 Вопросов: 43 Ответов: 227 |
Профиль | | #3 | Добавлено: 13.11.04 16:52 |
|
Dim installedFontCollection As New Drawing.InstalledFontCollection()
а дальше сам поймешь... |
||
|
Номер ответа: 4 Автор ответа: Oleg K Вопросов: 15 Ответов: 72 |
Профиль | | #4 | Добавлено: 14.11.04 23:51 |
| http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2221&lngWId=10 | ||
Страница: 1 |