VB
发布时间:2022-04-03 发布网站:大佬教程 code.js-code.com
大佬教程收集整理的这篇文章主要介绍了vb制作简单的多窗口浏览器(3) -- 新建窗口,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
制作到现在碰到的最大的难点在于SSTAB这个东西上,我的多窗口的做法是在每一个SSTAB.TAB上生成一个WEBBROWSER,当然,这个webbrowser先定义成控件组.这样就形成了一个sstab.tab(i)对应一个webbrowser(i),做窗口操作的时候比较好处理.
可以在上文看到,还有一个display的变量,它是来做什么的呢?新建窗口的时候怎么处理?关闭窗口的时候又是怎么处理呢?这些当初困扰了我好久,逻辑有的,写的时候却经常犯下小失误.
先来谈谈新建窗口.
- Ifnoflash<>1Then
- Picture1.Picture=Picture15.Picture
- EndIf
- @R_128_10586@lpage=@R_128_10586@lpage+1
- activepage=@R_128_10586@lpage-1
- SSTab1.Tabs=@R_128_10586@lpage
- display=display+1
- Ifdisplay>6Then
- SSTab1.TabsPerRow=display
- Else
- SSTab1.TabsPerRow=6
- EndIf
- Fori=activepageTo100
- IfSSTab1.TabVisible(i)=TrueThen
- activepage=i
- SSTab1.Tab=activepage
- ExitFor
- EndIf
- Next
- LoadWebBrowser1(activepagE)
- Fori=0To@R_128_10586@lpage-1
- IfDoesControlExist(WebBrowser1(i))Then
- WebBrowser1(i).Top=340
- WebBrowser1(i).Width=@H_372_19@me.Width-120
- WebBrowser1(i).Height=@H_372_19@me.Height-1800
- EndIf
- Next
- WebBrowser1(activepagE).Visible=True
- WebBrowser1(activepagE).Left=0
- WebBrowser1(activepagE).Navigate"about:blank"
大佬总结
以上是大佬教程为你收集整理的vb制作简单的多窗口浏览器(3) -- 新建窗口全部内容,希望文章能够帮你解决vb制作简单的多窗口浏览器(3) -- 新建窗口所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。