Очень нужно написать текст в Нижнем индексе!!

[CHEvalier]

Ребята вообщем пишу диплом, тестовую прграмму по Химии. Нужно что бы пользователи вводили текст в текстовое поле и что-бы цифры были в нижнем индексе а букы нормальные. чем можно помочь? использовать кой-нить элемент или с фрифтом замарачиваться? помогите советом?

[GSerg]

RichTextBox. Там есть.

[Tarik]

А ещё лучше - RTF от API-Guide. Там специальная пруперть есть для этого дела. А в обычном rtf придётся с тегами возиться...

[gaidar]

В API Guide'овой версии какая-то ошибка скользящая есть. У меня часто вылетало все, когда пытался с ним работать. ПОэтому лукчше юзать стандартный. Не будет такого страха за программу

[Tarik]

Даааа... Я помню, как я с ним (Api-guide'овским) мучался, когда ставил свою прогу на win95... Ну не пашет и хоть ты тресни Только через неделю ритуальных танцев и горы испорченных бубнов до меня дошло, что ему всего-навсего нужны рантаймы для VB5

[gaidar]

Это не проблема. Там какая-то ошибка - стоит вставить большой кусок текста и вылетает. Но не всегда, надо отметить

[Tarik]

Надо покопаться на досуге, вроде не замечал такое раньше

[CHEvalier]

to GSergИзвени где в RichTextBox подскажи какое свойство?

Tarik А что такое RTF от API-Guide?? компонет кой-то?

[Tarik]

В том-то всё и дело, что в стандартном RichTextBox такого совйства нет. Нужно вручную подставлять теги в rtf-код. Вот тема, где я спрашивал то же самое:
http://bbs.vbstreets.ru/viewtopic.php?p=20727#20727

А RichTextBox из API-Guide - учлучшенная версия стандартного контрола. Там есть свойства, которые тебе нужны.

[CHEvalier]

to Tarik Извени не понял как теги подставляються можешь показать на примере... очень прошу...
RichTextBox из API-Guide ---- откуда этот контр. брать не подскажешь?

[Tarik]

Для начала посмотрим на структуру RTF-файла. Создадим новый проект, кинем на форму RichTextBox (назовём rtb) и кнопку. Для кнопки напишем такой код:

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

rtb.SaveFile "c:\test.rtf" 'сохранение файла


Запустим программу, напишем в rtb "Windows has you!" и сохраним. Теперь откроем файл "c:\test.rtf" в Блокноте (чтобы были видны теги). Увидим примерно следующее:

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

{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}{\f1\fnil\fcharset204 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1033\f0\fs17 Windows has you!\lang1049\f1
\par }


Как видно из этого кода, теги только открываются, в этом отличие rtf от html. Посмотрим на тег fs. Вполне логично предположить, что он отвечает за размер шрифта (FontSize). Заменим fs17 на fs32. Сохраним.
Теперь добавим на форму ещё одну кнопку и код для неё

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

rtb.LoadFile "c:\test.rtf" 'загрузка файла


Загрузим файл. Что мы видим? Ура! Шрифт стал больше! Теперь поэксперементируем с индексами. Подставим перед текстом тег \super.
Должно получиться так:

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

{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}{\f1\fnil\fcharset204 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1033\f0\fs32\super Windows has you!\lang1049\f1
\par }


Снова сохраним файл в Блокноте и откроем в своей проге. Текст стал в верхнем индексе! Допустим, мы хотим, чтобы слово Windows было в верхнем индексе, has - в нижнем, а you - нормальным. Расставим теги:

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

{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}{\f1\fnil\fcharset204 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1033\f0\fs32\super Windows\sub has\nosupersub you!\lang1049\f1
\par }


Кстати, Alibek ошибся насчёт тега, который переводит текст в нормальный режим: не "\nosubsuper", а "\nosupersub" (MSDN рулит ).
Итак, снова загрузим документ в нашей проге. Как видно, текст отображается именно так, как мы и хотели.
Теперь о том, что делать с этим кодом. Когда все теги уже расставлены по местам, этот код нужно подсунуть в rtb.textrtf. Всё!

[Tarik]

AGRichEdit можно получить, поставив Api-guide (http://www.allapi.net). Он появится в списке компонентов под названием "API-Guide Rich Edit Control".