Смайлики в чат

[step]

Делаю чат, подскажите как можно смайлы туды засунуть? Я знаю, что можно в RichTextBox засунуть! А можно просто в текстбокс или в чёни-ть ещё?
А , если использовать для этого WebBrowser, то компонент надо за проэктом таскать, а он много весит.
Заранее спасибо!

[alibek]

Напиши свой компонент.

[step]

Ну а может у кого есть задумки, или начало для этого компонента, я с удовольствием его продолжу, ну хуть подскажите где его делать в пиктуре боксе, или в текст боксе?

[skord]

step
Делаешь чат по модему?

[step]

Да, примеры иди смотри http://bbs.vbstreets.ru/viewtopic.php?t=15442

[skord]

Круто! Я телепат!

[step]

Люди ну подскажите чё-нить, плиз!!!

[kirrun]

Нельзя никакие картинки запихивать в обычный TextBox

[_Мика_]

А чем RichTextBox не устраивает?

[skord]

Извените за флуд - а как в RTB картики пихать?

[_Мика_]

Извените за флуд - а как в RTB картики пихать?

Ну, честно говоря сам не знаю , но точно знаю что можно

[step]

в RTB вот как можно, но эти мерцания, и при клике два раза чё происходит, видели!

[step]

Нельзя никакие картинки запихивать в обычный TextBox

Ну это ещё как посмотреть...
Можно взять картинку, и попиксельно её нарисовать на текстбоксе, или взять положить картинку поверх текстбокса...

[schalexey]

step в РТБ засунуть моожно код примерно ткой (только BMP):
Наличие событий Form_Load и Form_QueryUnload обязательно, иначе ваш VB-проект просто-напросто "рухнет"

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

Private Sub Command1_Click()
a = RichTextBox1.SelStart
RichTextBox1.OLEObjects.Add , , "D:\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

Еще можно нарисовать при помощи функций GDI или GDI+

[step]

Спасибо конечно, но я вроде уже наподобии что-то чуть выше выложил!
Тема забита, ВСЕМ ОГРОМНОЕ СПАСИбО, начал свой компонент делать, не знаю чё получиться!

[|kerish|]

Я бы не советовал применять OLEObjects для вставки картинок, так как слышал о глюках в его реализации.
Писал свой чат и пользовался быстрым и простым способом:

1)Прописывал в любом модуле:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long

2)SelStart в нужное место.

3)Clipboard.Clear

4)Clipboard.SetData imgSmile.picture

5)SendMessage RichTextBox.hwnd, &H302, 0, 0&

6)Clipboard.Clear

[Ruslan Demidow]

Я бы не советовал применять OLEObjects для вставки картинок, так как слышал о глюках в его реализации.
Писал свой чат и пользовался быстрым и простым способом:

1)Прописывал в любом модуле:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long

2)SelStart в нужное место.

3)Clipboard.Clear

4)Clipboard.SetData imgSmile.picture

5)SendMessage RichTextBox.hwnd, &H302, 0, 0&

6)Clipboard.Clear

А если в это время у пользователя данные в буфере обмена?

[|kerish|]

Не хрен информацию в буфере обмена иметь...
А если серьезно: То несколькими строчками кода можно проверить, есть ли данные. Если есть, то туда-сюда-туда... И всё как было. Дело в том, что способ этот очень надежный.
А OLEObjects ИМХО тормознутый и глюковатый.

[alibek]

А чем не подходит способ со вставой смайла непосредственно в TextRTF? Неужели только из-за некоторых хлопот с восстановлением выделения?

[alibek]

То несколькими строчками кода можно проверить, есть ли данные. Если есть, то туда-сюда-туда... И всё как было.

А ты можешь продемонстрировать это "туда-сюда-туда"?

[Ruslan Demidow]

А если серьезно: То несколькими строчками кода можно проверить, есть ли данные. Если есть, то туда-сюда-туда...

Мне уже объяснили тут как-то ошибочность и наивность такого подхода.

[|kerish|]

Прошу разъяснить мне ошибочность и наивность моего подхода.
Будет самому интересно узнать более лучший (быстрый) вариант.

[alibek]

Разъясним, не переживай.
Ты продемонстрируй вначале то, что ты предлагал (восстановление буфера обмена).

[kirrun]

Че тут демонстрировать? Содержимое пихаем в переменную, потом назад.

[alibek]

Какую переменную?
Приведи код.

[hCORe]

В буфере-то могут быть данные неизвестных твоей проге форматов (И правда, RegisterClipboardFormat зачем нам дана?). Как ты их собираешься восстанавливать?

[kirrun]

Ну я-то ничего восстанавливать не собираюсь! Это я так просто... Подумал: "Что я крайний чтоли?" И решил тоже вставить слово =)

[SHURUP]

…
А , если использовать для этого WebBrowser, то компонент надо за проэктом таскать, а он много весит.
Заранее спасибо!

А разве shdocvw.dll вместе с виндой не поставляется? По моему он у ВСЕХ есть. А если нету - то можно и ссылку на него дать...
А в WebBrowser и можно смайл вставить и текст выделить и форматирование реализовать… Хотя я больше люблю DHTMLEdit control… С ним заморок меньше...

[|kerish|]

Ну я-то ничего восстанавливать не собираюсь! Это я так просто... Подумал: "Что я крайний чтоли?" И решил тоже вставить слово =)

А кто крайний? Кто у нас тут про буфер обмена начал? Сказал, всё...теперь доказывай.
Ждём кода...

[kirrun]

Ой... ну я прям даже и не знаю... [шаркая ножкой] =)

Короче, то что я сказал подходит только если в буфере текст