|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Exibir um arquivo direto da Internet/Intranet num TextBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
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
|
|
|
|
|
