|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Exibir um arquivo direto da Internet/Intranet num Text Box
|
 |
|
|
|
Postada em 11/8/2003 por d@®l@n
Para exibir num TEXT BOX, um arquivo texto capturado da Internet ou Intranet, coloque num Formulário um controle TEXT, um botão COMMAND e escreva a rotina à seguir no evento CLICK do botão Command.
'Exibindo um arquivo num Text direto da Internet
'*** utilize o componente Microsoft Internet Transfer Control
'--------------------
'por Rodrigo Guariento
'--------------------
Private Sub Command1_Click()
Dim txt As String
Dim b() As Byte
On Error GoTo Erro
Command1.Enabled = False
b() = Inet1.OpenURL(txtURL.Text, 1)
txt = ""
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
Text1.Text = txt
Command1.Enabled = True
Exit Sub
Erro:
MsgBox "O documento requerido não foi encontrado.", vbCritical
End Sub
|
|
|
|
|
