USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Exibir um arquivo direto da Internet/Intranet num TextBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Digamos que você precise exibir num TextBox um arquivo .TXT que está num servidor da Internet. Parece coisa do "outro mundo", não é? Pois bem, com esta dica você vai ver que é até simples de se fazer isto.

Para realizar esta tarefa, coloque num Form dois TextBox, um CommandButton, o componente Microsoft Internet Transfer Control e escreva o código à seguir no evento Click do CommandButton:

'Text1 é o TextBox onde o arquivo texto será
'exibido. Por tanto deverá ter a propriedade
'MultiLine = True.
'txtURL é o TextBox onde o usuário deverá
'digitar o endereço do texto na Internet.
Private Sub Command1_Click()
  Dim sTxt As String, bVet() As Byte
  Dim iNum As Integer

  On Error GoTo Erro
  Command1.Enabled = False

  'txtURL.Text deverá conter o endereço
  'do arquivo texto na Internet. Ex.:
  'http://www.site.com/texto.txt
  bVet() = Inet1.OpenURL(txtURL.Text, 1)
  sTxt = ""

  For iNum = 0 To UBound(bVet) - 1
    sTxt = sTxt + Chr(bVet(iNum))
  Next

  Text1.Text = sTxt
  Command1.Enabled = True
Exit Sub
Erro:
  MsgBox "O documento requerido não foi " & _
         "encontrado.", vbCritical
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página