起初想用CommandStateChange试试是否能实现这个功能,结果最后放弃,似乎它只支持单窗口的,于是只能用笨办法,添加变量记录数据,然后去判定是否可以允许后退或者前进
- Ifcurrectpage(activepage)=lastpage(activepage)ThenGoToaaa
- Picture5.Picture=Picture24.Picture
- OnErrorGoToaaa
- WebBrowser1(activepage).GoForward
- currectpage(activepage)=currectpage(activepage)+1
- add_page=1
- Ifcurrectpage(activepage)>1ThenPicture4.Picture=Picture19.Picture
- Ifcurrectpage(activepage)=lastpage(activepage)ThenPicture5.Picture=Picture40.Picture
- aaa:
- ExitSub