vb制作简单的多窗口浏览器(6) --判断后退前进

最新推荐文章于 2024-08-26 10:17:49 发布

tiandi79

最新推荐文章于 2024-08-26 10:17:49 发布

阅读量841

点赞数

CC 4.0 BY-SA版权

文章标签：浏览器 vb

本文链接：https://blog.youkuaiyun.com/tiandi79/article/details/3771261

本文介绍了一种通过记录当前页面和最后一页来控制浏览器前进后退的方法。利用VBScript编写，通过设置变量来跟踪WebBrowser控件的状态，并根据这些状态改变按钮的显示状态。

起初想用CommandStateChange试试是否能实现这个功能,结果最后放弃,似乎它只支持单窗口的,于是只能用笨办法,添加变量记录数据,然后去判定是否可以允许后退或者前进

    If currectpage(activepage) = lastpage(activepage) Then GoTo aaa
    Picture5.Picture = Picture24.Picture
    On Error GoTo aaa
    WebBrowser1(activepage).GoForward
    currectpage(activepage) = currectpage(activepage) + 1
    add_page = 1
    If currectpage(activepage) > 1 Then Picture4.Picture = Picture19.Picture
    If currectpage(activepage) = lastpage(activepage) Then Picture5.Picture = Picture40.Picture
aaa:
    Exit Sub