vb制作簡單的多視窗浏覽器(6) --判斷後退前進

起初想用CommandStateChange試試是否能實作這個功能,結果最後放棄,似乎它隻支援單視窗的,于是隻能用笨辦法,添加變量記錄資料,然後去判定是否可以允許後退或者前進

1.     If currectpage(activepage) = lastpage(activepage) Then GoTo aaa
2.     Picture5.Picture = Picture24.Picture
3.     On Error GoTo aaa
4.     WebBrowser1(activepage).GoForward
5.     currectpage(activepage) = currectpage(activepage) + 1
6.     add_page = 1
7.     If currectpage(activepage) > 1 Then Picture4.Picture = Picture19.Picture
8.     If currectpage(activepage) = lastpage(activepage) Then Picture5.Picture = Picture40.Picture
9. aaa:
10.     Exit Sub