|
|
|
| Title | Display the HTML code at a URL |
|---|
| Keywords | Web page, WebBrowser, browser, HTML |
|---|
| Categories | Controls |
|---|
|
|
|
Use the InternetTransfer control's OpenURL method to download the URL's contents and display them in a TextBox.
Note that this program cancels any pending download when it Unloads.
|
|
Private Sub cmdShowText_Click()
Dim response As Variant
MousePointer = vbHourglass
txtResult.Text = ""
DoEvents
' Open the URL.
response = inetDesiredURL.OpenURL(txtURL.Text)
' Display the response.
txtResult.Text = response
MousePointer = vbDefault
End Sub
' Cancel any pending commands.
Private Sub Form_Unload(Cancel As Integer)
inetDesiredURL.Cancel
End Sub
|
| |
 |
| |
|
