Microsoft KB Archive/162719

From BetaArchive Wiki
Knowledge Base


How To Use the WebBrowser Control from Visual Basic 5.0

Article ID: 162719

Article Last Modified on 7/13/2004



APPLIES TO

  • Microsoft Visual Basic 5.0 Control Creation Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition



This article was previously published under Q162719

SUMMARY

Microsoft Internet Explorer 3.0 includes a custom ActiveX control called "WebBrowser." When you use WebBrowser in combination with Microsoft Visual Basic 5.0, you can design powerful custom solutions that include Internet Web browsing features. This article illustrates how to use the WebBrowser control within Microsoft Visual Basic 5.0.

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.

REFERENCES

For additional information, please see the following article in the Microsoft Knowledge Base:

155969 : How To Distribute the WebBrowser Control


Keywords: kbhowto kbcode KB162719