Vložení OLE objektu do RichTextBoxu
Postup:
Jednou z mála známých
vlastností prvku RichTextBox je možnost vkládat do jeho editační části
objekty OLE. Jde to provádět pouze programově tak, že přidáme element do
kolekce OleObjects. Nejjednodušší cesta je dát uživateli možnost, aby si sám
zvolil, jaký prvek bude vložen pomocí použití metody InsertObjDlg, kterou má
objekt OLE Container.
Abyste si mohli otestovat funkčnost, tak na formulář přidejte RichTextBox a prvek OLE, tlačítko (cmdInsert) a zapište na něj následují kód:
Private Sub cmdInsert_Click()OLE1.InsertObjDlg
If Len(OLE1.Class) Then
RichTextBox1.OLEObjects.Add , , , OLE1.Class
OLE1.Class = ""
End If
End Sub
