| Вопрос: Bold и Italic в RTF | Добавлено: 25.11.06 19:08 |
Автор вопроса:  Maxxx | Web-сайт: polithelp.sibmediagroup.ru
|
|
Здравствуйте. Как применить к выделенному тексту в RTFbox'e жирный или курсив. У меня ума не хватает, в VB6 все проще было.
Dim fntst As System.Drawing.FontStyle If rtf_field.SelectionFont.Bold = True Then fntst = FontStyle.Regular Else fntst = FontStyle.Bold End If Додумался только до этого, а как теперь это применить к тексту самому. Заранее благодарен. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  popzow Вопросов: 6 Ответов: 20 |
Профиль | | #1 | Добавлено: 25.11.06 23:36 |
| http://www.vbarchiv.de/download/workshop/rtfex.zip | ||
|
Номер ответа: 2 Автор ответа: MaxxxВопросов: 7 Ответов: 23 |
Web-сайт: Профиль | | #2 | Добавлено: 26.11.06 10:52 |
|
Наверное, этот код написан на VS 2003. В общем кострукция вида
RichTextBoxEx1.SetSelectionBold(Not RichTextBoxEx1.SelectionFont.Bold) у меня не работает, т.к. SetSelectionBold VB не понимает. |
||
|
Номер ответа: 3 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #3 | Добавлено: 26.11.06 11:41 |
| RichtextboxEx Source-сначала распакуй и посмотри, помом компилируй. это контрол такой. все там есть и работает. | ||
|
Номер ответа: 4 Автор ответа: MaxxxВопросов: 7 Ответов: 23 |
Web-сайт: Профиль | | #4 | Добавлено: 26.11.06 12:09 |
| Конторол - это хорошо. А все-таки как это в коде выглядит. Я не думаю, что рационально для трех функций делать контрол. Как в коде можно это сделать. | ||
|
Номер ответа: 5 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #5 | Добавлено: 26.11.06 12:14 |
| rtfText.SelectionFont = New System.Drawing.Font(Font, Schriftgrad, FontStyle.Bold) | ||
|
Номер ответа: 6 Автор ответа:  MaxxxВопросов: 7 Ответов: 23 |
Web-сайт: Профиль | | #6 | Добавлено: 27.11.06 18:36 |
| А еще вопрос. А как программно создать экземпляр RichTexBox. А то я не могу его найти в списке: все остальные контролы есть, а этого - нет. | ||
|
Номер ответа: 7 Автор ответа: popzowВопросов: 6 Ответов: 20 |
Профиль | | #7 | Добавлено: 27.11.06 18:57 |
|
Dim rtf As New RichTextBox
rtf.Size = New System.Drawing.Size(826, 1121) rtf.Location = New System.Drawing.Point(10, 10) Me.Controls.Add(rtf) и.т.д. |
||
Страница: 1 |