DOCUMENT:Q162719  11-JAN-2001  [vbwin]
TITLE   :HOWTO: Use the WebBrowser Control from Visual Basic 5.0
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:
KEYWORDS:kbcode kbGrpDSVB

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Control Creation Edition for Windows, version 5.0 
 - Microsoft Visual Basic Enterprise Edition for Windows, version 5.0 
-------------------------------------------------------------------------------

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:

   Q155969 : How To Distribute the WebBrowser Control


Additional query words:

======================================================================
Keywords          : kbcode kbGrpDSVB 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2 kbVB500Search kbVBA500Search kbVBA500 kbVB500 kbZNotKeyword3
Version           : WINDOWS:5.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2001.