VBNet - Форум - Как заполнить ComboBox всеми шрифтами?

Вопрос: Как заполнить ComboBox всеми шрифтами? Добавлено: 30.04.11 07:46

Автор вопроса: ShaVas

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

Если это поможет, то я нашёл, что на vb6 это было так:

'киньте 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

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| Цитата \| #1	Добавлено: 30.04.11 10:38
	нУ, и в чем вопрос то Ответить

Номер ответа: 2 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| Цитата \| #2	Добавлено: 30.04.11 12:28
	А ему, по ходу, на NET надо Ответить

Номер ответа: 3 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| Цитата \| #3	Добавлено: 30.04.11 13:09
	foreach (var family in FontFamily.Families) comboBox1.Items.Add(family.Name); Ответить

Номер ответа: 4 Автор ответа: andrey ICQ: 305986093 Вопросов: 3 Ответов: 41	Профиль \| Цитата \| #4	Добавлено: 04.05.11 10:00
	Пример с MSDN: В следующем примере кода показываются все семейства шрифтов в свойстве Families класса FontFamily. Этот пример предназначен использования с Windows Form. Чтобы выполнить этот пример, вставьте поле со списком ListBox с именем listBox1 в форму Windows Form и вызовите метод PopulateListBoxWithFonts из конструктора формы. Private Sub PopulateListBoxWithFonts() listBox1.Width = 200 listBox1.Location = New Point(40, 120) Dim oneFontFamily As FontFamily For Each oneFontFamily In FontFamily.Families listBox1.Items.Add(oneFontFamily.Name) Next End Sub ну на случай, если кому-то будет не понятно из ответа выше. Ответить

Страница: 1 |