Computer Programming Concepts and Visual Basic David I. Schneider

394 Computer Programming Concepts and Visual Basic
statement is needed because the LocationURL of the Web Browser control can easily return an error and
crash the program. (For instance, this would happen if the intended web site was down.)
After you run the program as specified in what follows, click on one of the links. Note: The home page
of Internet Explorer will also be the home page of the Web Browser control.
Object Property Setting
frm14_2_1 Caption Simple Web Browser
txtURL Text (blank)
mdRetrieve Caption &Retrieve Document
Default True
CmdQuit Caption &Quit
LblURL Caption URL:
WebBrowser1
Private Sub Form_Load()
WebBrowser1.GoHome ‘Calls up Internet Explorer’s home page
End Sub
Private Sub cmdRetrieve_Click()
‘Calls up the URL typed in the text box
WebBrowser1.Navigate(txtURL.Text)
End Sub
Private Sub Form_Resize()
‘Resizes the WebBrowser control with the Form,
‘as long as the form is not minimized.
‘occurs when the Form is first displayed
If frm14_2_1.WindowState > 1 Then
WebBrowser1.Width = frm14_2_1.ScaleWidth
WebBrowser1.Height = frm14_2_1.ScaleHeight – 740 ‘Subtract toolbar
height
End If
End Sub
Private Sub WebBrowser1_NavigateComplete (ByVal URL As String)
‘Is activated when the HTML control finishes retrieving the
‘requested Web page.
‘Updates the text box to display the URL of the current page.
On Error Resume Next ‘Eliminates error messages
txtURL.Text = WebBrowser1.LocationURL
End Sub
Private Sub cmdQuit_Click()
End
End Sub
[Run. The Internet Explorer’s home page will be displayed. Type http://www.whitehouse.gov/ into the text
box, and click on the “Retrieve Document” command button.]