Подстрочный шрифт

[AnarCky]

Как можно в RichTextBox поменять шрифт на подстрочный?
Заранее спаисибо!

[Viper]

Это надо в сторону свойства SelectionCharOffset смотреть.

З.Ы. Совет: создай в Word RTF файл с символами как надстрочными, подстрочными и обычными, а затем в RichTextBox посмотри на значения SelectionCharOffset и размеры шрифта для разных частей текста

[AnarCky]

А можно еще раз и попдробнее? Что это вообще за свойство SelectionCharOffset?
Не въехал: причем тут РТФ файл? Наверно я туплю но у меня как-то не связываются твои 2 строчки.

[Viper]

Сие свойство устанавливает расстояние от базовой линии на котором будет находится текст. Если значение меньше нуля, то текст будет подстрочным, если болше нуля - то надстрочным. Если ноль - обычный текст. Величина эта измеряется в пикселях и может находиться в диапазоне от -2000 до 2000.

Конкретная цифра зависит от шрифта (от размера вернее). Потому то и советую, создать файл в Word с подстрочным и надстрочным текстом, загрузить его в RichTextBox и посмотреть на величину этого свойства для посдстрочного и нвдстрочного шрифта. Кстати подстрочный и надстрочный текст печатается помимо всего прочего еще и меньшим по размеру шрифтом.

[AnarCky]

Теперь все ясно кроме одного. Как загрузить РТФ в RichTextBox?

[Viper]

Методом LoadFile

[AnarCky]

Большое Спасибо!!

[AnarCky]

Подожди еще не все.
Только что попробовал. он выдает значение свойства SelectionCharOffset ноль в случае с над- и подстрочным.
Код такой:

Код: Выделить всё

    Private Sub Button105_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button105.Click
        Dim str1 As String
        Dim int1 As Integer
        rtxtUU.LoadFile("Разное\H3.rtf")
        rtxtUU.SelectionCharOffset = int1
        txt1.Text = int1
    End Sub

    Private Sub Button106_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button106.Click
        Dim str1 As String
        Dim int1 As Integer
        rtxtUU.LoadFile("Разное\123.rtf")
        rtxtUU.SelectionCharOffset = int1
        txt1.Text = int1
    End Sub


Первая процедура для над- , вторая для под- . В чем дело?

[GSerg]

В том, что в rtf индексы создаются командами \super и \sub, а не смещением каким-то...

[AnarCky]

Варианты решения проблемы есть?

[Viper]

Опытным путем... размер шрифта уменьшается для под- и надстрочных символов на треть, величину отступа подобрать опытным путем...

[AnarCky]

Спасибо. Сейчас попробую...