- 浏览: 19935 次
最新评论
VB制作精简的IE浏览器
2011年04月28日
Option Explicit
‘变量声明
’strURL,字符型
Dim strURL As String Private Sub Form_Load()
‘设为True的作用是当网页出现脚本错误时不提示
WebBrowser1.Silent = True
‘在这里输入网页地址,在这里我随便改一个可用的地址便于测试
WebBrowser1.Navigate “http://www.hao123.com”
‘这是窗体名称的更新频率
Timer1.Interval = 500
End Sub
‘让所有链接都用这个浏览器打开
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate strURL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End Sub
‘当窗体大小改变时,使WebBrowser1控件大小填满整个窗口
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.Width - 100
WebBrowser1.Height = Me.Height - 450
End Sub
‘结束
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
‘利用Timer来更新窗体标题
Private Sub Timer1_Timer()
Me.Caption = WebBrowser1.LocationName
Timer1.Enabled = True
End Sub
另外一种方法:
Option Explicit
'strURL,字符型
Dim strURL As String
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NFrm As New Form1
NFrm.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = NFrm.WebBrowser1.Object
NFrm.Visible = True
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
strURL = Text
End Sub
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.Width - 100
WebBrowser1.Height = Me.Height - 450
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Timer1_Timer()
Me.Caption = WebBrowser1.LocationName
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://tv.sohu.com/hdtv/"
End Sub
发表评论
-
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浏览器
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 ... -
用VB制作自己的IE网页浏览器
2012-01-16 01:40 707用VB制作自己的IE网页浏览器 2011年04月23日 ... -
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菜单 ...
相关推荐
VB按钮调用IEVB按钮调用IEVB按钮调用IE浏览器VB按钮调用IE浏览器VB按钮调用IE浏览器VB按钮调用IE浏览器
VB制作精简IE浏览器 VB代码 浏览器代码
vb程序设计--IE浏览器程序代码全文共3页,当前为第1页。vb程序设计--IE浏览器程序代码全文共3页,当前为第1页。 vb程序设计--IE浏览器程序代码全文共3页,当前为第1页。 vb程序设计--IE浏览器程序代码全文共3页,...
VB精简版软件,无需更复杂的库即可使用,用于精简化的功能。
vb6精简版vb6精简版vb6精简版vb6精简版vb6精简版
VB 获取IE浏览器 网页的框架源码程序,可使用本程序获取框架内(后台动态网页)的源码,也可使用本程序获取框架内(后台动态网页)的各节点
vb.net 2005 精简安装版。 vb.net 2005 精简安装版 vb.net 2005 精简安装版 vb.net 2005 精简安装版
VB中对IE浏览器的控制.docx
VB对IE浏览器完全控制............................................
VB与程序设置IE浏览器的默认主页地址,这个功能相信对大家来说并不陌生吧?现在的不少软件,都有这种霸道的功能,动不动就把主页改成自己的网址。VB程序员想实现的话就可以参考一下本例子,貌似本实例并没有那么...
IE浏览器完全控制 相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢,本文将一步步介绍如何通过VB 调用IE的对象库来对IE进行控制。 本文使用的编程工具是VB6英文企业版,浏览器是IE5,以下...
VB写的很好的IE浏览器源码
VB6.0精简版安装文件VB6.0精简版安装文件VB6.0精简版安装文件
这是使用ieFrame.dll文件编程的一个实例,用它编写的一个简单的IE浏览器,可以前进、后退、刷新、输入网址、转向网址等,ieFrame.dll文件请在系统文件夹里找到后拷贝到本工程根目录下,要不会报错。通过这个小例子...
VB6.0截获IE浏览器地址栏的URL字符串,本代码较老,不是最近才写的,仅获得ie浏览器的地址,监视IE ( 6.0--7.0 )测试通过--[测试系统2000,XP],测试时请注意,时间的开启顺序很重要,不然会出错!源代码运行效果请...
vb6.0精简版
vb仿ie浏览器源码,简单易用,感觉不错
vb 精简版 vb 精简版 vb 精简版 vb 精简版 vb 精简版 vb 精简版