• 0
Sign in to follow this  
Fernanda S

Imagem No Richtextbox

Question

Estou tentando inserir imagem em um RichTextBox. Encontrei em vários lugares este exemplo:

Private Sub Command1_Click()

Dim strOpen As String

CommonDialog1.ShowOpen

strOpen = CommonDialog1.FileName

rtfdados.OLEObjects.Add , , , strOpen

End Sub

Fiz o teste com este código, mas está dando o seguinte erro: "ActiveX component can't create object"

Alguém saberia me dizer porque dá este erro, e o que posso fazer para inserir a imagem?

Obrigada,

Fernanda

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

seria isso?

Private Sub Command1_Click()
Dim strOpen As String
CommonDialog1.ShowOpen
strOpen = CommonDialog1.FileName
rtfdados.OLEObjects.Add , , strOpen
End Sub[/code]

Share this post


Link to post
Share on other sites
  • 0
Guest Fernanda S

Isso... Tentei usar este código, mas está dando aquele erro que eu disse...

Share this post


Link to post
Share on other sites
  • 0

tipo, o que eu passei está diferente do seu:

rtfdados.OLEObjects.Add , , strOpen

o meu tem uma virgula a menos...

continua o mesmo erro??

Share this post


Link to post
Share on other sites
  • 0

'Primeiro adicione os componentes

'Project / Components.../ Microsoft Common Dialog Control

'Project / Components.../Microsoft RichtextBox Control

'depois coloque um Botao e um RichtextBox no formulario

Adicione o código no Botão EX:

Private Sub Commond1_Click()

dim FileImage as String

commondialog1.ShowOpen

FIleImage = commondialog1.Filename

Richtextbox1.OleObjects.Add , , FileImage

End Sub

Ajudou??? :D

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this