vb制作简单的多窗口浏览器(3) -- 新建窗口

制作到现在碰到的最大的难点在于SSTAB这个东西上,我的多窗口的做法是在每一个SSTAB.TAB上生成一个WEBBROWSER,当然,这个webbrowser先定义成控件组.这样就形成了一个sstab.tab(i)对应一个webbrowser(i),做窗口操作的时候比较好处理.

可以在上文看到,还有一个display的变量,它是来做什么的呢?新建窗口的时候怎么处理?关闭窗口的时候又是怎么处理呢?这些当初困扰了我好久,逻辑有的,写的时候却经常犯下小失误.

先来谈谈新建窗口.

1.     '判断此次新建窗口是否要闪烁按钮
2.     If noflash <> 1 Then
3.         Picture1.Picture = Picture15.Picture
4.     End If
5.     '总页面变量加1
6.     totalpage = totalpage + 1
7.     '设置当前页的变量为总页面数-1,新页面总是在尾部添加标签
8.     activepage = totalpage - 1
9.     '将页面总数赋予sstab的tab数
10.     SSTab1.Tabs = totalpage