/ Snippet Library - View Code

Visual Basic / Internet and Web / web browser url download

Snippet details

ID: 373

Viewed: 1300

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

show the status of the page, like when it is done downloading, starting to download, etc...

need vbbrowser control

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) 'use this to maybe set variables...or start you animation for navigation Timer1.Enable = True ' if your useing a timer to run some animation End Sub Private Sub Webbrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) 'double check that I dont have the fwd/back reversed If Command = 2 Then cmdBack.Enabled = Enable 'back button End If If Command = 1 Then cmdForward.Enabled = Enable ' forward button End If End Sub Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) On Error Resume Next 'you will need lots of these Progressbar1.Max = ProgressMax Progressbar1.Value = Progress End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) 'if you are using a ststus bar use this to display the text (URL) for the link StatusBar1.Panels(1).Text = Text End Sub

No Reviews to show