| Вопрос: Как сделать выбор шрифта и размера в ComboBox | Добавлено: 04.12.06 17:44 |
Автор вопроса:  Maxxx | Web-сайт: polithelp.sibmediagroup.ru
|
| Как сделать, чтобы в комбобоксе отображались установленные в системе шрифты, и при их выборе шрифт применялся к выбранному тексту в RTFbox'e (под именем rtf), и как еще сделать, чтобы в другом комбобоксе были выведены кегли шрифта и тоже можно было бы применить выьранный кегль на rtf. Заранее благодарен. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 04.12.06 23:11 |
|
System.Drawing.Text.InstalledFontCollection
RichTextBox.SelectionFont |
||
|
Номер ответа: 2 Автор ответа: Maxxx Вопросов: 7 Ответов: 23 |
Web-сайт: Профиль | | #2 | Добавлено: 05.12.06 20:12 |
|
Как добавить шрифты в комбобокс я все-таки догадался:
'--->Добавление шрифтов в комбобокс<--- Dim fontFamilies() As FontFamily Dim installedFontCollection As New System.Drawing.Text.InstalledFontCollection() fontFamilies = installedFontCollection.Families Dim count As Integer = fontFamilies.Length Dim txt1 As String Dim j As Integer 'прокручиваем весь список шрифтов и заносим их в ComboBox с именем fntch While j < count txt1 = fontFamilies(j).Name j += 1 fntch.Items.Add(txt1) End While 'делаем первую строку видимoй по умолчанию fntch.Text = fntch.Items(0) '--->Добавление шрифтов в комбобокс<--- fntch - имя combobox'a А как при выборе из списка нужного шрифта применить именно этот шрифт к выделенному тексту в RTFbox'e. При том чтобы применялся только вид шрифта, а размер, стиль, цвет и пр. оставалось прежним. Конструкция вида: rtf.SelectionFont = New System.Drawing.Font(ff, rtf.SelectionFont.Size, rtf.SelectionFont.Style) почти не работает. Вообще, не понимаю структуру System.Drawing.Font, там столько много параметров, а в MSDN я не нашел, что нужно пихать в эти скобки. |
||
|
Номер ответа: 3 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | | #3 | Добавлено: 05.12.06 21:02 |
|
Как добавить шрифты в комбобокс я все-таки догадался
Слишком много писанины.. вот так попроще будет... Dim installedFonts As New System.Drawing.Text.InstalledFontCollection
ComboBox1.DataSource = installedFonts.Families ComboBox1.DisplayMember = "Name" |
||
Страница: 1 |