Уважаемые, есть проблема.
Хотел поэкпериментировать с данным элементом. Загвоздка такая
нашел, скачал, зарегестрировал. Далее при попытке перенести его в форму из панели элементов
сообщение что ACS не поддерживает данный элемент.

А в том примере что у меня есть выдает сообщение об обсутствии объекта. Что может быть.

Если у кого работающий пример с подобным элементом (SP6). Может поделитесь ?

Cпасибо за помощь.

Версия ACS - 2003 (SP2)

Спасибо большое, сейчас попробую.

Тот пример файла .OCX у меня на компе дома, но размер файла помнится другой, наверное и версия другая
А что за файл .OCA. Его куда?

Спасибо, все OK. Не сразу смог проверить.

У меня еще вот такой вопрос, возможно ли как-то указать выделение
текста в поле программно. Допустим есть какой-то контекст-вхождение и мне его нужно выделить что-бы затем изменить его цвет или фактуру шрифта.

Я думаю с этим справлюсь. Мне бы только знать есть ли метод программно выделить допустим в поле с 5 по 11 символ.

2 Guest 33

Спасибо! Только проверить смогу видимо вечером не раньше. А так все здорово. Должно работать.

Ведь что я собственно хочу. Есть подформа основанная на записях некой таблицы. Выборка по критерию ограничивает кол-во записей и после отработки фильтра контекст поиска в поле формы остается выделенным.
Однако боюсь что с RichTextBox этот номер не пройдет. В моем примере в поле таблицы к которому присоединен элемент RTF запись отражающая особенности форматирования, а не та конкретная информация по которой я хочу задавать поиск.
В общем прошу прощения за сумбур в объяснении. Надеюсь суть проблемы ясна. Как решить пока не знаю.

Может тогда я что-то не понимаю. Имел ввиду следующее:

У меня поле RTB в фоме `связано с полем таблицы. Я пишу в форме например короткое слово
"мышь" (в форме без кавычек). Открываю таблицу и что я вижу.

{\rtf1\ansi\ansicpg1251\deff0{\fonttbl{\f0\fnil\fcharset204 Tahoma;}}
{\colortbl ;\red0\green0\blue255;}
{\*\generator Riched20 5.50.99.2050;}\viewkind4\uc1\pard\cf1\ul\b\i\f0\fs28\lang1049\'ec\'fb\'f8\'fc
\par
\par
\par }

а причем здесь мышь? Где мой контекст? Если я в таблицу напишу это же слово, в форме я его увижу, но как то странно отформатированным. Жирный подчеркнутый курсив. А если я буду его менять, получу в таблице подобную абракадабру.

код для кнопки вида

Private Sub Кнопка1_Click()
Dim i As Long
i = Me.rtxt.Find("ttttt", 0, , rtfWholeWord)
If i <> -1 Then
Me.rtxt.SelStart = i
Me.rtxt.SelLength = Len("ttttt")дключт
Me.rtxt.SelColor = vbRed
End If
End Sub
не работает.

И еще плохо то что очень часто сбивается регистрация и элемент приходится заново подключать.

Так что вот так. Не очень здорово. сплошные проМблемы.

Уважаемый Guest33 прежде всего спасибо за реальную помощь, и простите за может быть излишне резкий тон в предыдущем сообщении.

Я понимаю что в таблице представлен текст в формате RTF.
К сожалению код для кнопки
Dim i As Long
Dim txt As String
txt = "сков"
Do While i <> -1
i = Me.rtxt.Find(txt, i, , rtfWholeWord)
If i <> -1 Then
Me.rtxt.SelStart = i
Me.rtxt.SelLength = Len(txt)
Me.rtxt.SelColor = vbRed
i = i + Len(txt) + 1
End If
Loop

у меня так и не заработал. Если у Вас будет время и возможность может посмотрите файл примера-что неправильно
Этот пример ооочень долго был в моем архиве. Взял я его из интернета. Вещь интересная - спасибо автору этого примера. Хочется разобраться.

Спасибо, все OK !!