- 浏览: 19934 次
最新评论
用VB制作自己的IE网页浏览器
2011年04月23日
1、在工具箱中添加“Microsoft Internet Controls”控件;
“microsoft common dialog control 6.0”控件;
“Microsoft Windows Common Control”控件;
2、在Form1窗口中添加添加1个ComboBox控件,5个CommandButton控件,
1个Common Dialpg控件,1个WebBrowser控件;
1个StatusBar控件和1个ProgressBar控件。
如图所示:
http://b63.photo.store.qq.com/http_imgload.cgi?/rurl4_b=e64038147f12951908f2522c130c4b8faf3f009dc31e83519b14dc80c05d50f214adba8fbcd4b09a7a6e4202a3489409a7f9aee1717e4aa893b2f05c0e0d899a0328563e19869fe9c9e4c14fe7cf05994bbe399b&a=63&b=63
3、双击Form1窗口,输入下列代码:
Option Explicit
Private Sub Combo1_Click()
WebBrowser1.Navigate Combo1.Text ' 打开指定网址
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim I As Long
Dim existed As Boolean
If KeyCode = 13 Then
If Left(Combo1.Text, 7) "http://" Then '如果输入网址不是以“http://”开头则自动添加
Combo1.Text = "http://" + Combo1.Text + ".com"
End If
WebBrowser1.Navigate Combo1.Text ' URL地址栏保存的网站地址
For I = 0 To Combo1.ListCount - 1
If Combo1.List(I) = Combo1.Text Then
existed = True
Exit For
Else
existed = False
End If
Next
If Not existed Then
Combo1.AddItem (Combo1.Text) ' 如果输入新的网站则自动保存
End If
End If
End Sub
Private Sub Command1_Click()
WebBrowser1.GoSearch
End Sub
Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub
Private Sub Command3_Click()
WebBrowser1.GoBack
End Sub
Private Sub Command4_Click()
WebBrowser1.Stop
End Sub
Private Sub Command5_Click()
WebBrowser1.Refresh
End Sub
Private Sub Command6_Click()
CommonDialog1.ShowOpen '激活打开文件对话框选择文件
WebBrowser1.Navigate CommonDialog1.FileName
WebBrowser1.Stop
End Sub
Private Sub Form_Load()
Combo1.Text = ""
Combo1.AddItem "http://www.baidu.com/"
Combo1.AddItem "http://www.sina.com.cn/"
Combo1.AddItem "http://user.qzone.qq.com/925519388/ "
Combo1.Top = 0 + 40 ' 设置URL地址栏起始位置
Combo1.Left = 0
WebBrowser1.Top = Combo1.Top + Combo1.Height + 40 ' 设置页面浏览区位置
WebBrowser1.Left = 0
Form_Resize
StatusBar1.Style = sbrSimple
ProgressBar1.ZOrder
WebBrowser1.GoHome
End Sub
Private Sub Form_Resize()
On Error GoTo a
Combo1.Width = Form1.Width - 5150 ' URL地址栏宽度随窗口大小调整而变化
WebBrowser1.Width = Form1.Width - 100
WebBrowser1.Height = Form1.Height - Combo1.Height - 1000 ' 浏览器高度随窗口大小调整而变化
ProgressBar1.Top = Me.Height - StatusBar1.Height - 330 ' 进程
ProgressBar1.Left = 0.25 * StatusBar1.Width
ProgressBar1.Width = 0.75 * Me.Width - 250
Command1.Left = Form1.Width - 5100
Command2.Left = Form1.Width - 4300
Command3.Left = Form1.Width - 3700
Command4.Left = Form1.Width - 3100
Command5.Left = Form1.Width - 2500
Command6.Left = Form1.Width - 1800 '设置6个Command按钮水平位置随窗口大小调整而变化
a:
End Sub
Private Sub WebBrowser1_DownloadComplete()
StatusBar1.SimpleText = "下载完成" '下载完成时状态栏显示“下载完成”
ProgressBar1.Value = 0
End Sub
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If ProgressMax = 0 Then Exit Sub '下载进行时进度条变化
ProgressBar1.Max = ProgressMax
If Progress -1 And Progress <= ProgressMax Then
ProgressBar1.Value = Progress
End If
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Combo1.Text = WebBrowser1.LocationURL
End Sub
浏览效果图:
http://b63.photo.store.qq.com/http_imgload.cgi?/rurl4_b=e64038147f12951908f2522c130c4b8fe2332b82ccb28f3706c8ccf96217a26c6baf6f73fd24a0a5defc05ae95f05250d6caceeac30b2f7876b6ac0ae53bcb1848816d91f1e59a537fa5f0383584d78a5d178759&a=63&b=63
发表评论
-
Web的系统测试方法
2012-01-20 02:43 616Web的系统测试方法 2011 ... -
linux下编程实现mplayer播放器总结
2012-01-20 02:43 1066linux下编程实现mplayer播放器总结 2011年05 ... -
Windows下如何改写目标进程的窗口函数来注入DLL
2012-01-20 02:43 1571Windows下如何改写目标进程的窗口函数来注入DLL 20 ... -
网游UI解决方案的选择(CEGUI/MYGUI/Hikari/Scaleform/...)
2012-01-20 02:43 1281网游UI解决方案的选择(CEGUI/MYGUI/Hikari/ ... -
Silverlight与Flex的比较选择
2012-01-20 02:43 510Silverlight与Flex的比较选择 2010年11月 ... -
文员资料
2012-01-19 10:38 581文员资料 2011年02月27日 ... -
2011-10-1
2012-01-19 10:37 5182011-10-1 2011年10月01日 ... -
塑造专业能力的手段之一:标准化
2012-01-19 10:37 698塑造专业能力的手段之 ... -
C程序复习题1
2012-01-17 03:07 690C程序复习题1 2011年12月15日 一、正误 ... -
记录一下
2012-01-17 03:07 608记录一下 2011年12月22日 事情的 ... -
Windows Phone 7之隔离存储空间
2012-01-17 03:07 989Windows Phone 7之隔离存储空间 2011年11 ... -
linux下服务说明<转>
2012-01-17 03:07 594linux下服务说明 2011年12月13日 我的Cen ... -
郑大《大学计算机基础》实验报告书 第一章答案(有选择题)
2012-01-17 03:07 2926郑大《大学计算机基础》实验报告书 第一章答案(有选择题) 2 ... -
VB制作精简的IE浏览器
2012-01-16 01:40 993VB制作精简的IE浏览器 2011年04月28日 Opt ... -
VB浏览器
2012-01-16 01:40 818VB浏览器 2009年08月02日 应用控件 WebBr ... -
vb webQQ登陆器
2012-01-16 01:40 1230vb webQQ登陆器 2010年06月10日 '*** ... -
VB制作浏览器代码参考
2012-01-16 01:40 747VB制作浏览器代码参考 2010年04月17日 后退 W ... -
Ant使用入门
2012-01-11 01:27 530Ant使用入门 2011年09月01日 Apache ... -
SAP SLD
2012-01-11 01:27 587SAP SLD 2011年09月01日 随着每个企业的I ... -
SHELL菜单
2012-01-11 01:26 536SHELL菜单 2011年09月01日 SHELL菜单 ...
相关推荐
精彩编程与编程技巧-自己的IE——用VB制作浏览器 ...
VB6.0制作IE风格的工具栏,主要是针对Windows XP时代的IE6或IE7的风格,现在Windows7下的IE9和IE10都不是这种风格了,不过本源码贵在学习VB WinForm的窗口编程技巧,如果你觉得这是您需要的,那就赶快下载源码学习吧...
这是一个用vb制作的个人浏览器 具备IE的基本功能 简单实用
VB制作的简单浏览器 源文件 工程文件 完整 VB打开
VB制作精简IE浏览器 VB代码 浏览器代码
本人亲自做的VB.net的IE 实现基本的浏览器具有的功能,提供给大家参考
自己制作的仿照IE9浏览器,(内核不是啊,只是页面)。只做了一个简单的但页面浏览器。严格的来说还不是一个正规的浏览器。
用VB制作的浏览器,利用了IE浏览器的webbrowser控件,简洁实用(启动速度很快),有收藏夹整理,网页收藏添加删除功能,但美中不足是它没有能像市面上多选项卡式网页显示功能。有兴趣的码农们可以下载自己改装改装!
VB6.0制作窗口切换、不能被拖动的窗口效果,双击显示窗体,不移动和改变窗口大小,这个窗口是不能被拖动...另外还有一个网页浏览器的功能,输入网址,可打开指定网页,不过这功能也是基于IE内核的,只是调用了IE的Dll.
vb ComboBox应用范例-ieFrame.dll 浏览器,本源码主要演示ComboBox控件的使用,也可了解下如何借助ieFrame.dll制作一个IEi浏览器,这两个技巧相信都是很实用的,这个简单的IE浏览器,可实现网页浏览的前进、后退、...
您的网站是否仍一如既往地保持“静态”?目前呈几何增长的互联网网站中,有相当一部分仍固守“静态”,无形中已...非常遗憾的是在网景Netscape和微软IE浏览器几番大战后,我们仍没有得到一个对DHTML支持的统一标准。
├─Example022-在VB中制作和使用菜单 ├─Example023-设计弹出菜单 ├─Example024-向菜单中添加图标 ├─Example025-动态装入菜单项 ├─Example026-动态创建控件 ├─Example027-具有动感的图片按钮 ├─Example...
通常ActiveX控件都是用C++或VB语言开发,本文介绍另一种方式,在.NET Framework平台上,使用C#语言开发ActiveX控件。 虽然本文通篇都在讲如何使用C#语言开发ActiveX控件,但我并不极力推荐使用这种技术,因为该技术...
通常ActiveX控件都是用C++或VB语言开发,本文介绍另一种方式,在.NET Framework平台上,使用C#语言开发ActiveX控件。 虽然本文通篇都在讲如何使用C#语言开发ActiveX控件,但我并不极力推荐使用这种技术,因为该技术...
自己制作的软件 刚学会VB
本次设计方案主要是利用局域网原理,在Apache网络服务器上搭建一个网站,建立网页论坛平台,浏览者可通过网络,在自己的终端上利用IE浏览器访问该网站,浏览相关信息,并可以注册、注销个人信息,发表、编辑、修改、...
1、百度工具条是一个基于IE的指向百度链接工具,没有广告不会被篡改; 2、针对360、搜狗等劫持IE而制作的软件; 3、本人制作,放心使用。
WEB开发在运行时是一个纯粹的IE浏览器报表插件,报表只运行在浏览器客户端,所以WEB开发可以适用于所有WEB开发技术与平台,如ASP、ASP.NET、JSP、PHP等,浏览器客户端脚本可以采用JavaScript与VBScript。C/S与B/S...