How To Use the WebBrowser Control from Visual Basic 5.0 (162719)

MORE INFORMATION

The following example creates a mini-browser:

1. Create a new Standard .exe project in Microsoft Visual Basic 5.0. Form1 is added automatically.
2. On the Project menu, click Components.
3. Select the Microsoft Internet Controls component. Click OK.
4. Add the following controls to Form1:
   

      Control           Name
      --------------    ---------
      Text Box          Text1
      Command Button    Command1
      WebBrowser        WebBrowser1
   
   						

5. In Form1's code window, add the following code:
   

        Option Explicit
   
        Private Sub Command1_Click()
            If Text1.Text <> "" Then
                WebBrowser1.Navigate Text1.Text
                If WebBrowser1.Visible = False Then
                    WebBrowser1.Visible = True
                End If
            End If
        End Sub
   
        Private Sub Form_Load()
            Me.Width = 5325
            Me.Height = 5400
            Me.Caption = "Mini browser"
            With WebBrowser1
                .Visible = False
                .Width = 4575
                .Height = 3375
                .Top = 600
                .Left = 240
            End With
            With Text1
                .Top = 240
                .Left = 1680
                .Height = 285
                .Width = 3135
                .Text = "http://www.microsoft.com"
            End With
            With Command1
                .Top = 120
                .Left = 240
                .Height = 375
                .Width = 1215
                .Caption = "Navigate"
                .Default = True
            End With
        End Sub
   
   						

6. On the File menu, click Save Project1.
7. On the Run menu, click Start.

When you click Navigate, the WebBrowser appears and automatically loads the URL displayed in the TextBox.

NOTE: Distribution of a Microsoft Visual Basic 5.0 application that uses the WebBrowser control requires that Microsoft Internet Explorer 3.0 (or later) be installed on the target system prior to installation.