| Вопрос: Рисунок в TextBox или RichTextBox | Добавлено: 25.08.04 14:29 |
Автор вопроса:  MonRo | ICQ: 205437056 |
| Возможно ли отобразить рисунки в TextBox или RichTextBox??? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа: Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #1 | Добавлено: 25.08.04 14:36 |
| В TextBox - нет, а в Rich можно. | ||
|
Номер ответа: 2 Автор ответа: MonRo ICQ: 205437056 Вопросов: 16 Ответов: 44 |
Профиль | | #2 | Добавлено: 25.08.04 15:29 |
| как это реализовать? | ||
|
Номер ответа: 3 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #3 | Добавлено: 25.08.04 15:35 |
|
'Данный пример покажет, как можно программно вставить графический файл в
'элемент RichTextBox. Наличие событий Form_Load и Form_QueryUnload 'обязательно, иначе ваш VB-проект просто-напросто "рухнет". Private Sub Command1_Click() a = RichTextBox1.SelStart RichTextBox1.OLEObjects.Add , , "  :\4\add_pictures_to_richtextbox\smile.bmp"
RichTextBox1.SelStart = a + 1 RichTextBox1.SetFocus End Sub Private Sub Form_Load() RichTextBox1.OLEObjects.Clear End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) RichTextBox1.OLEObjects.Clear End Sub |
||
|
Номер ответа: 4 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #4 | Добавлено: 25.08.04 15:36 |
|
Offtop: P.S. Вот это мне выдала ПЕРВАЯ ЖЕ ссылка в Яндексе. Прежде чем что-то спрашивать, выполни 2 действия: 1) Поищи Яндексом\Гуглом 2) Поищи по форуму Это избавит от многих проблем, ИМХО. |
||
|
Номер ответа: 5 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #5 | Добавлено: 25.08.04 16:50 |
|
Это старая тема, я её подымал месяца четыре назад.
В общем, нормальных способов нет. Этот способ кривой и хромой, начиная с мерцания при вставке и заканчивая возможностью редактирования рисунка прямо в RTB. Я исследовал много путей, пытался запихнуть одни контролы в другие, но единственный приемлимый результат мне дало сабклассирование текстбокса и ручная перерисовка картинок. Кстати, похожий пример находил в инете, на тему прозрачного текстбокса с картинками, он занимает несколько страниц кода 
|
||
|
Номер ответа: 6 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #6 | Добавлено: 26.08.04 11:03 |
|
Вот здесь глянь...
http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Tile_a_Bitmap_Into_a_TextBox/article.asp |
||
|
Номер ответа: 7 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #7 | Добавлено: 26.08.04 11:49 |
| Ну народ пошел ленивый - зачем библиотека кодов, НеЧаВо, Сравочник по VB??? | ||
|
Номер ответа: 8 Автор ответа: MonRoICQ: 205437056 Вопросов: 16 Ответов: 44 |
Профиль | | #8 | Добавлено: 26.08.04 12:10 |
|
за ссылку пасиба
2Александр у меня просто трафик 50коп(украинские бабки) за метр та чо лазить де попало нежелательно
|
||
|
Номер ответа: 9 Автор ответа: KеrishВопросов: 5 Ответов: 17 |
Профиль | | #9 | Добавлено: 30.08.04 17:43 |
|
Советую следующий метод...OLEObjects трогать вообще не советую.
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Clipboard.Clear Clipboard.SetData "C:\MyPict.bmp" SendMessage RichTextBox1.hWnd, &H302, 0, 0& Clipboard.Clear Намного быстрее работает. Вставляет через буфер обмена. |
||
Страница: 1 |