How Enable/Disable Back & Forward in webbrowser

it show how to enable / disable
back & forward in a webbrowser control

Original Author: Sebastien Levesque

Code

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
On Error Resume Next
Select Case Command
  Case CSC_NAVIGATEFORWARD
    If Enable = True Then
      'Forward dispo
      ForwardEnable = True
      RaiseEvent ForwardUpdate(True)
    Else
      'Forward non dispo
      ForwardEnable = False
      RaiseEvent ForwardUpdate(False)
    End If
    'Pas de forward
  Case CSC_NAVIGATEBACK
    If Enable = True Then
      BackEnable = True
      RaiseEvent BackUpdate(True)
      'Back dispo
    Else
      BackEnable = False
      RaiseEvent BackUpdate(False)
      'Back non dispo
    End If
End Select
If Command = -1 Then Exit Sub
'End If
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 100 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.