ABRIR ARQUIVO COM IMAGEM EM UM RICHTEXTBOX

USUARIO.EXCLUIDOS 12/09/2006 10:21:51
#170823
Pessoal, estou desenvolvendo um programa em VB, onde tenho um RichTextBox, o qual consigo formatar texto e inserir imagem. Estou salvando o conteúdo desse RichTextBox em um arquivo .txt. Ele salva em código, e quanto tento abrir este arquivo no meu programa, ele não abre o texto formatado com a imagem, aparece todo o código do arquivo .txt. Como eu poderia fazer para abrir o arquivo com o texto formatado, com a imagem?!?
O código que estou usando para abrir o arquivo é:

Private Sub btnAbrirArq_Click()
  'abre o arquivo no Text1.text que está invisível
  Text1.Text = ""
  Open File1.Path & "\" & File1.FileName For Input As #1
  Do Until EOF(1)
     Line Input #1, temp
     If Text1.Text <> "" Then
        Text1.Text = Text1.Text & vbCrLf & temp
     Else
        Text1.Text = temp
     End If
  Loop
  Close #1
  'manda os dados do Text1.text para o formulário de novo slide
  frmNovoArq.Show
  frmNovoArq.txtArq.TextRTF = Text1.Text
End Sub


Obrigada!
Fernanda
RUOLIG 12/09/2006 13:26:43
#170892

Se não for extremamente necessário ser salvo em .txt, por praticidade seria mais facil se salvasse em .doc, assim ele preservaria a formatação e a imagem...
USUARIO.EXCLUIDOS 14/09/2006 09:16:33
#171340
Eu tentei salvar em .doc tb, mas acontece o seguinte, o arquivo salva direitinho (c/ imagem e formataçao), mas quando abro o arquivo no meu programa, aparece um monte de código no RichTextBox, e não o arquivo com imagem e o texto formatado.

O código que estou usando para abrir arquivo está da seguinte forma:
Private Sub btnAbrirArq_Click()
  'abre o arquivo no Text1.text que está invisível
  Text1.Text = ""
  Open File1.Path & "\" & File1.FileName For Input As #1
  Do Until EOF(1)
     Line Input #1, temp
     If Text1.Text <> "" Then
        Text1.Text = Text1.Text & vbCrLf & temp
     Else
        Text1.Text = temp
     End If
  Loop
  Close #1
  
  'manda os dados do Text1.text para o formulário de novo slide
  frmNovoArq.Show
  frmNovoArq.txtArq.Text = Text1.Text
End Sub


E para salvar:
Private Sub btnSalvar_Click()
  Dim arq As String
  If txtNomeArq.Text = "" Then
     MsgBox "Informe o nome do arquivo!"
     Exit Sub
  End If

  arq = Dir1.Path & "\" & txtNomeArq.Text & ".doc"
  Open arq For Output As #1

  Print #1, frmNovoArq.txtArq.TextRTF
  Close #1
  
  MsgBox ("Arquivo gravado corretamente!")
End Sub


Alguém saberia como posso fazer para abrir o arquivo com imagem e texto formatado?
Obrigada
USUARIO.EXCLUIDOS 14/09/2006 23:13:56
#171583
Pessoal, alguém sabe como posso fazer isso??
Valeu!
CLEVERSON.F 15/09/2006 00:43:07
#171593 Resposta escolhida
use para salvar
rtbtexto.SaveFile "c:\arquivo.rtf"

e para ler
rtbtexto.LoadFile "c:\arquivo.rtt"
USUARIO.EXCLUIDOS 15/09/2006 09:40:29
#171631
Valeu gente!! Deu certo!!! =)
Tópico encerrado , respostas não são mais permitidas
Voltar