RichTextBox - запретить редактирование вставленного рисунка.

[Grover]

Вставляю в RichTextBox рисунок :

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

RichTextBox1.OLEObjects.Add , , App.Path & "\up.bmp"


Рисунок вставляется нормально.
Теперь при двойном нажатии на рисунок он "открывается" для редактирования, а это мне не надо. Надо, чтобы рисунок просто было видно и всё !

Вопрос:
Как запретить редактирование вставленного рисунка?

[Grover]

Ни кто не знает...
Может мои размышления кого-нибудь натолкнут на мысль.

1. Это OLE объект класса Paint.Picture. В стандартном контроле OLE есть свойство AutoActivate. Если его выключить, то редактирование рисунка запрещено.
В OLE объекте RichTextbox такого свойства нет. Может можно использовать SendMessage Lib "user32".

2. Существует класс PBrush, который не поддерживает редактирование в принципе. Но как его объявить при вставке в RichTextbox я не знаю. Пробывал так:

RichTextbox1.OLEObjects.Add , ,"smile.bmp","PBrash"

Такая запись не работает, объект всё равно вставляется как класс Paint.Picture.

[GSerg]

Grover, ты знаешь, пользоваться поиском полезно. И чтобы не получать замечания, и чтобы (о чудо!) находить ответы.
http://bbs.vbstreets.ru/viewtopic.php?p=6620549#6620549

[Grover]

Очередной способ вставки изображения...
Я их уже 3 знаю: 1. Через буфер, 2. Через OLE, 3. Твой.

Проблема не в том как вставить, а в том как запретить редактирование вставленного изображения !
(Двойной клик на картинку и она открывается для редактирования.)

[GSerg]

Двойной клик на картинку из примера - и она НЕ открывается для редактирования.

[Grover]

А вот это уже интересно...
У меня открывается...

Visual Basic 6.0
Windows XP SP1

[GSerg]

Visual Basic 6.0 SP6
Windows XP SP2

[Хакер]

И у меня не открывалась. Ни тогда, когда я делал пример (была ещё SP1), ни теперь (SP2)

[Grover]

А кактм классом у вас вставляется рисунок?

Судя по .TextRTF у меня всегда Paint.Picture.

Если не сложно, посмотрите.

[GSerg]

\objclass Paint.Picture

Не открывается.

[Grover]

Странно...
Я даже не изменял код... Просто запускаю примерчик и всё...

Может мы о разных примерах говорим? Дайте прямую ссылку, плиз...

[GSerg]

Ссылка прямая. На пост, а не на топик.

[Хакер]

Grover

Мы об этом.

[Grover]

Всё правильно...
Странно? надо попробывать на других компах.

[Хакер]

У меня рядом комп с SP1. И без VS вообще. Сейчас на нём и опробую.

[GSerg]

Хм.
А если скомпилировать, начинает открываться.

[Хакер]

Grover
1) Если рич предназначен только для отображения данных, то можно его сабклассить, и не пускать нужные для перевод в режим редактирования картинок даблклики.

2) Я помню, что есть свойство SelLocked или SelProtected. Попробую его поюзать.

3) Был дан универсальный способ. Я на 90% уверен, что убрать редактируемость картинок можно правкой rtf-разметки.

[Хакер]

+ 3) Да, это делает контроворд \protect

[Grover]

Проверил пример дома, редактор не запускается, все работает как надо.

Спасибо за /protect.