VB多窗口浏览器.docVIP

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB多窗口浏览器

vb制作简单的多窗口浏览器 之前由于做自动考勤的时候接触到了webbrowser这个东西,于是打算进行更深入一点的操作.制作一个简单的VB多窗口浏览器. 普通的VB浏览器网上有太多的资料了.如果想知道用VB做浏览器的基础知识,那么可以有哪些信誉好的足球投注网站一下这方便的内容. 这里的多窗口,我用的是SSTAB来进行实现的. 制作之前,先了解一下自己究竟想实现浏览器的哪些功能?平时我是用TW的,一般菜单上用得到的几个东西. 1.显示源代码 2.打印 3.设置 4.收藏夹 其他的罗里罗嗦的东西,几乎都没用到或者都不需要调整,所以菜单栏可以去除了.占着空间浪费. 然后轮到工具栏,也就是有图标按钮那一;排,基本上用到的是 1.后退 2.前进 3.恢复刚关闭的页面 4.主页 5.URL输入框 6.有哪些信誉好的足球投注网站框 7.添加/关闭新页 基本上关闭页面我都是DOUBLE CLICK的,但在这里我还是做了一个按钮 去除停止,刷新等按钮. 再然后CTRL+T加载多标签页sstab,进度条progress,以及状态栏statusbar这三个控件 最后,按照需要,构建自己的form如下:(加载了skinactive.ocx的一个默认skin) 框架都搭好了,现在开始主要是代码了. 先定义变量 一共打开多少页 Dim totalpage As Integer 当前页 Dim activepage As Integer Dim i As Integer 删除了多少页 Dim delflag As Integer 显示多少页 Dim display As Integer 按钮不闪烁 Dim noflash As Integer 接下来是form_load Private Sub Form_Load() Dim tmpstr As String activepage = 0 totalpage = 1 display = 1 SSTab1.Tabs = totalpage 页面留白 WebBrowser1(activepage).Navigate about:blank 预设几个URL,方便测试 Combo1.AddItem (HYPERLINK /) Combo1.AddItem (HYPERLINK /) Combo1.AddItem (HYPERLINK /) Combo1.AddItem (HYPERLINK /) Combo1.AddItem (HYPERLINK /) Combo1.AddItem (HYPERLINK /) 于是几个label,方便测试 Label1.Caption = 总共 totalpage 显示 display Label2.Caption = 当前 activepage Label3.Caption = 删除 delflag SSTab1.ZOrder 1 Picture29.ZOrder 0 Picture30.ZOrder 0 StatusBar1.ZOrder 0 ProgressBar1.ZOrder 0 状态栏初始化 StatusBar1.Panels(1).Width = 7700 StatusBar1.Panels(1).Bevel = sbrNoBevel StatusBar1.Panels.Add (2) StatusBar1.Panels(2).Width = 1000 StatusBar1.Panels(2).Bevel = sbrNoBevel StatusBar1.Panels(2).Text = 当前时间: StatusBar1.Panels.Add (3) StatusBar1.Panels(3).Width = 1000 StatusBar1.Panels(3).Bevel = sbrNoBevel StatusBar1.Panels(3).Style = sbrDate StatusBar1.Panels.Add (4) StatusBar1.Panels(4).Width = 700 StatusBar1.Panels(4).Bevel = sbrNoBevel StatusBar1.Panels(4).Style = sbrTime StatusBar1.Panels.Add (5) StatusBar1.Panels(5).Width = 2700

文档评论(0)

jgx3536 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

版权声明书
用户编号:6111134150000003

1亿VIP精品文档

相关文档