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

前端之家收集整理的这篇文章主要介绍了vb制作简单的多窗口浏览器(3) -- 新建窗口前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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

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

先来谈谈新建窗口.

  1. '判断此次新建窗口是否要闪烁按钮
  2. Ifnoflash<>1Then
  3. Picture1.Picture=Picture15.Picture
  4. EndIf
  5. '总页面变量加1
  6. totalpage=totalpage+1
  7. '设置当前页的变量为总页面数-1,新页面总是在尾部添加标签
  8. activepage=totalpage-1
  9. '将页面总数赋予sstab的tab数
  10. SSTab1.Tabs=totalpage
  11. '当前显示页面加1
  12. display=display+1
  13. '调整标签宽度
  14. Ifdisplay>6Then
  15. SSTab1.TabsPerRow=display
  16. Else
  17. SSTab1.TabsPerRow=6
  18. EndIf
  19. '判断尾部是否有隐藏的标签,有的话调整当前页位置向后移,暂定总页面数100页,
  20. '虽然这个页面包括关闭标签数量,但是在正常情况下应该够了.
  21. Fori=activepageTo100
  22. IfSSTab1.TabVisible(i)=TrueThen
  23. activepage=i
  24. SSTab1.Tab=activepage
  25. ExitFor
  26. EndIf
  27. Next
  28. 'LoadWebBrowser1(WebBrowser1.ubound+1)
  29. '动态建立新的webbrowser控件
  30. LoadWebBrowser1(activepage)
  31. '添加sstab超过perRow时top的自动位移
  32. Fori=0Tototalpage-1
  33. IfDoesControlExist(WebBrowser1(i))Then
  34. WebBrowser1(i).Top=340
  35. WebBrowser1(i).Width=Me.Width-120
  36. WebBrowser1(i).Height=Me.Height-1800
  37. EndIf
  38. Next
  39. WebBrowser1(activepage).Visible=True
  40. WebBrowser1(activepage).Left=0
  41. '新建窗口以空白页显示
  42. WebBrowser1(activepage).Navigate"about:blank"
原文链接:https://www.f2er.com/vb/263342.html

猜你在找的VB相关文章