Как вставить рисунок в RichTextBox

'Данный пример покажет, как можно программно вставить графический файл в
'элемент RichTextBox. Наличие событий 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

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как вставить рисунок в RichTextBox", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!