VB多窗口浏览器.docVIP

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