ABRIR ARQUIVO NO MODO EXIBICAO

USUARIO.EXCLUIDOS 02/05/2005 12:49:48
#81281
Tenho um documento HTML e quero saber como faço para abrir este arquivo no modo exibição diretamente do meu aplicativo, Alguém pode me ajudar ?

Obrigado!
GABRIEL.LOGAN 02/05/2005 13:15:34
#81287
Ue, você quer so exibir o arquivo como código é so abrir ele em um TextBox assim:

No módulo:

Function AbreArquivo(sArquivo As String) As String
  Dim iARQ As Integer
  Dim sLinha As String
  Dim sResult As String

  iARQ = FreeFile
  Open sArquivo For Input As iARQ
  Do While Not EOF(iARQ)
    'Pega o conteúdo da linha
    Line Input #iARQ, sLinha

    'Quebra a linha e concatena (soma) o resultado
    sResult = sResult + Chr(13) & Chr(10) + sLinha
  Loop

  AbreArquivo = sResult

  'Fecha o arquivo
  Close iARQ
End Function


Ai pra abrir seu arquivo Teste.HTML use:

Private Sub Command1_Click()
 Text1.Text = AbreArquivo("C:\Meus documentos    este.html")
End Sub


Isso fará com que a pessoa posa ver o código do arquivo mas não salve o arquivo.

Agora se você quiser EXIBIR como vai ficar seu Arquivo HTML no Internet Explorer use o componente [txt-color=#ff0000]WebBrower[/txt-color] pra usá-lo vá em:

[txt-color=#000080]Project / Components... [/txt-color] ai você marca a opção " [txt-color=#008000]Microsoft Internet Controls [/txt-color]"
Tópico encerrado , respostas não são mais permitidas
Voltar