VB call WebBrowser skill set 3

web| Tips 1, page scrolling:


Private Sub Command2_Click ()
WebBrowser1.Document.parentwindow.scrollby 0, 30
End Sub

Private Sub Form_Load ()
WebBrowser1.Navigate "Http://www.applevb.com"
End Sub



Click Command2 to scroll the current page down by 30 pixels





2, to determine whether the page can forward back

Private Sub Command1_Click ()
Webbrowser1.goforward
End Sub

Private Sub Command2_Click ()
Webbrowser1.goback
End Sub

Private Sub Form_Load ()
WebBrowser1.Navigate "Http://www.applevb.com"
End Sub

Private Sub Webbrowser1_commandstatechange (ByVal Command as Long, ByVal Enable as Boolean)
If (Command = csc_navigateback) Then
command2.enabled = Enable
End If
If (Command = csc_navigateforward) Then
command1.enabled = Enable
End If
End Sub



The Command1 above is the forward button, and the Command2 is the back button.