RICHTEXT ABRINDO ARQUIVO

WHELLNET 06/06/2005 11:32:37
#87233
Estou usando o seguinte codigo para abrir um arquivo de texto simples em um RichText
Private Sub CarregaArquivo(Arquivo As String)
rtt_text.Text = Empty
Dim Dado As String()
Open Arquivo For Input As #1
   While Not Eof(1)
      Line Input #1, Dado
      rtt_text.Text = rtt_text & VbNewLine & Dado
   Wend
Close #1


O problema que demora um pocado, pois estou abrindo um arquivo de 600kb. é normal? Tem outra forma de abrir?
POCCI 06/06/2005 11:48:34
#87239 Resposta escolhida
Tente assim pelo metodo OpenFile

CommonDialog1.initdir = App.Path & "\Modelos\"
CommonDialog1.Filter = "Modelos RTF (*.rtf)|*.rtf|Modelos TXT (*.txt)|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.filename <> "" Then
If Dir(CommonDialog1.filename) = "" Then
MsgBox "Nenhum arquivo encontrado", vbExclamation, "Atenção"
Else
RTB.LoadFile (CommonDialog1.filename)
End If
End If

Abç.
WHELLNET 06/06/2005 11:52:38
#87242
Pocci, realemente é bem mais rapido!

Obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar