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

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

1. Ifcurrectpage(activepage)=lastpage(activepage)ThenGoToaaa
2. Picture5.Picture=Picture24.Picture
3. OnErrorGoToaaa
4. Webbrowser1(activepage).GoForward
5. currectpage(activepage)=currectpage(activepage)+1
6. add_page=1
7. Ifcurrectpage(activepage)>1ThenPicture4.Picture=Picture19.Picture
8. Ifcurrectpage(activepage)=lastpage(activepage)ThenPicture5.Picture=Picture40.Picture
9. aaa:
10. ExitSub