110,536
社区成员
发帖
与我相关
我的任务
分享
Private Sub AxWebBrowser1_CommandStateChange(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_CommandStateChangeEvent) Handles AxWebBrowser1.CommandStateChange
Select Case e.command
Case CSC_NAVIGATEFORWARD '后退按钮是否可用
Button1.Enabled = e.enable
Case CSC_NAVIGATEBACK '前进按钮是否可用
Button2.Enabled = e.enable
End Select
End Sub