| Вопрос: Как получить список шрифтов в ComboBox? | Добавлено: 01.08.07 12:51 |
Автор вопроса:  П.С. | Web-сайт: psbatishev.narod.ru | ICQ: 225019134 |
|
Подскажите, пожалуйста, как можно получить список шрифтов в ComboBox (в свойство List) с тем, чтобы после выбора пользователем шрифта из списка, его можно было передать в формируемый программой документ Word например, командой wrd.Selection.Font=Combo1.Text
Заранее спасибо. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Stuart Вопросов: 5 Ответов: 152 |
Профиль | | #1 | Добавлено: 01.08.07 17:12 |
|
Как заполнить ComboBox всеми шрифтами, которые установленны в системе?
'киньте 1 ComboBox на форму Private Sub Form_Load() Dim I As Integer For I = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(I) Next End Sub |
||
|
Номер ответа: 2 Автор ответа: П.С. ICQ: 225019134 Вопросов: 36 Ответов: 41 |
Web-сайт: Профиль | | #2 | Добавлено: 01.08.07 17:23 |
| Спасибо большое! | ||
Страница: 1 |