home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.0#0"; "shdocvw.dll"
- Begin VB.Form WebBrowser_Demo
- Caption = "WebBrowser Control Demo"
- ClientHeight = 4860
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 7575
- LinkTopic = "Form1"
- ScaleHeight = 4860
- ScaleWidth = 7575
- StartUpPosition = 3 'Windows Default
- Begin SHDocVwCtl.WebBrowser WebBrowser1
- Height = 4020
- Left = 120
- TabIndex = 2
- Top = 660
- Width = 7350
- Object.Height = 268
- Object.Width = 490
- AutoSize = 0
- ViewMode = 1
- AutoSizePercentage= 0
- AutoArrange = -1 'True
- NoClientEdge = -1 'True
- AlignLeft = 0 'False
- End
- Begin VB.CommandButton Command1
- Caption = "Navigate"
- Height = 375
- Left = 120
- TabIndex = 1
- Top = 120
- Width = 1095
- End
- Begin VB.TextBox Text1
- Height = 375
- Left = 1320
- TabIndex = 0
- Text = "Text1"
- Top = 120
- Width = 6135
- End
- Attribute VB_Name = "WebBrowser_Demo"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Command1_Click()
- WebBrowser1.Navigate Text1.Text
- End Sub
-