IMAGEM NO RICHTEXTBOX

USUARIO.EXCLUIDOS 08/09/2006 19:37:42
#170323
Estou tentando inserir uma imagem em um RichTextBox, mas dá o seguinte erro quando tento abrir a imagem.
"ActiveX component can't create object"
Alguém pode me ajudar?
O código que estou usando é:

Private Sub Command1_Click() 
  Dim strOpen As String 
  CommonDialog1.ShowOpen 
  strOpen = CommonDialog1.FileName 
  rich1.OLEObjects.Add , , , strOpen 
End Sub


Obrigada!
MARCOSAV 08/09/2006 23:10:57
#170341
Veja se o link abaixo pode te ajudar...

LINK

Abraço
T+
USUARIO.EXCLUIDOS 09/09/2006 10:30:16
#170375
Marcos, entrei neste link que você me passou, mas os links lá do tópico não estão entrando. As páginas não são encontradas.

Obrigada
Abraços..
ESLEYSANCHES 09/09/2006 10:57:03
#170377
Amigo de uma olhada em um desses links abaixo:

LINK 1
LINK 2

Espero ter ajudado amigo !!

T+
USUARIO.EXCLUIDOS 09/09/2006 15:40:36
#170423 Resposta escolhida
Uma forma alternativa usando clipboard
'num módulo
Public Const WM_PASTE = &H302
Public Declare Function SendMessageByLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'num Form
Private Sub Cola_Pic()
   Clipboard.Clear
   Clipboard.SetData imgIns.Picture
   SendMessageByLong rtfFile.hwnd, WM_PASTE, 0, 0
End Sub
USUARIO.EXCLUIDOS 10/09/2006 23:18:32
#170565
Pessoal, deu certo!! Obrigada pela ajuda de vocês!
Tópico encerrado , respostas não são mais permitidas
Voltar