| Вопрос: Надстрочные и подстрочные знаки в RichTextBox | Добавлено: 24.11.08 12:11 |
Автор вопроса:  mishaprogrammer
|
|
Где то здесь на форуме нашел:
Установка надстрочного знака: Dim txt As String txt = "\super " & InputBox("Введите текст, который должен находиться над строкой:", "Надстрочный знак") tMainText.SelectedRtf = "{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}{\f1\fnil\fcharset220 MS Sans Serif;}}\viewkind4\uc1\pard\lang1033\f0\fs17 " & txt & "\lang1049\f1\par }" Установка подстрочного знака: Dim txt As String txt = "\sub " & InputBox("Введите текст, который должен находиться под строкой:", "Подстрочный знак") tMainText.SelectedRtf = "{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}{\f1\fnil\fcharset204 MS Sans Serif;}}\viewkind4\uc1\pard\lang1033\f0\fs17 " & txt & "\lang1049\f1\par }" А как сделать, чтобы после надстрочного\подстрочного ввода знаков перейти к обычному вводу. И ещё. Когда я выделяю одновременно надстрочный\подстрочный знак и обычный символ то в следующем коде возникает ошибка: (прописано в событии SelectionChanged) If tMainText.SelectionFont.Bold = True Then -мой код- end if |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Kardinal ICQ: 360041513 Вопросов: 1 Ответов: 164 |
Web-сайт: Профиль | | #1 | Добавлено: 06.12.08 14:24 |
|
Что-то накручено оно больно... надо закрыть тег \sub и \super
мой код- end if А ошибка возникать где-то сдесь 
|
||
Страница: 1 |