Пример можно?alibek писал(а):Внедрряй в TextRTF.
Делается довольно быстро и легко, единственное, придется помучаться, чтобы курсор не прыгал.
Ок. Спасибо.alibek писал(а):Э... Готового нет.
Но когда я это делал, я потратил минут 10, не больше.
Вставь в RTB смайлик и просмотри TextRTF (скопируй в блокнот). Затем убери все лишнее, а остаток запомни в строковую переменную.
RTF-тэг я уже не помню, поэтому примера не дам.
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
STanli писал(а):Как зделать картинку в риче. Только чобы не через OLE. НУжно для того чтобы в чате зделать смайлики.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 158