判断浏览器是否可以前进与后退——VB Webbrowser的使用

Private Sub Command1_Click()         '前进按钮
WebBrowser1.GoForward
End Sub

Private Sub Command2_Click()          '后退按钮
WebBrowser1.GoBack
End Sub

Private Sub Form_Load()                     '启动程序登陆我的博客,呵呵
WebBrowser1.Navigate ("http://hi.baidu.com/zhangchaoxuan" )
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