| Вопрос: Шрифты | Добавлено: 12.05.06 21:49 |
Автор вопроса:  ygen | Web-сайт: soft.ygen.ru/
|
|
Как мне загнать все имеющиеся названия шрифтов в COMBO1?
То есть списочек |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 13.05.06 08:15 |
|
Option Explicit
Private Sub Form_Load() 'Sorted в True Dim i As Integer For i = 1 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i) Next End Sub |
||
Страница: 1 |