- 浏览: 19970 次
最新评论
VB浏览器
2009年08月02日
应用控件 WebBrowser 在工具箱中 右键 部件 Microsoft Internet Controls选上 确定
出现 一个小地球
然后 拖动出一个WebBrowser
需要控件: WebBrowser 一个 Command1 6个 Caption分别是 转到 后退 前进 停止 刷新 主页 还有
一个Text ~
大家应该都知道 浏览器 有地址栏吧? 不知道的…… 我汗…………
先弄一个Text 再来个 Command1 做地址栏 ~
地址栏代码 :
Private Sub Command1_Click()
Command1.Caption = 转到
WebBrowser1.Navigate Text1.Text
End Sub
下一步 给 后退 前进 停止 刷新 主页 这几个按钮 弄代码
Private Sub Command2_Click()
Command2.Caption = 后退
WebBrowser1.GoBack
End Sub
Private Sub Command3_Click()
Command2.Caption = 前进
WebBrowser1.GoForward
End Sub
Private Sub Command4_Click()
Command2.Caption = 停止
WebBrowser1.GoSearch
End Sub
Private Sub Command5_Click()
Command2.Caption = 刷新
WebBrowser1.Refresh
End Sub
Private Sub Command6_Click()
Command2.Caption = 主页
WebBrowser1.Refresh
End Sub
OK 一个简洁的以IE为内核的浏览器 就OK了 要是想做得更好点的话 请参照
让VB浏览器 打开所有网页 而不是切换到IE上
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newform1 As New Form1
Set ppDisp = newform1.WebBrowser1.object
newform1.Show
End Sub
判断是否可以前进 或后退
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
On Error Resume Next
If (Command = CSC_NAVIGATEBACK) Then
Command3.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command2.Enabled = Enable
End If
'保证连接在一个窗口打开
Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
On Error Resume Next
Processed = True
WebBrowser1.Navigate URL
End Sub
发表评论
-
Web的系统测试方法
2012-01-20 02:43 619Web的系统测试方法 2011 ... -
linux下编程实现mplayer播放器总结
2012-01-20 02:43 1067linux下编程实现mplayer播放器总结 2011年05 ... -
Windows下如何改写目标进程的窗口函数来注入DLL
2012-01-20 02:43 1571Windows下如何改写目标进程的窗口函数来注入DLL 20 ... -
网游UI解决方案的选择(CEGUI/MYGUI/Hikari/Scaleform/...)
2012-01-20 02:43 1283网游UI解决方案的选择(CEGUI/MYGUI/Hikari/ ... -
Silverlight与Flex的比较选择
2012-01-20 02:43 513Silverlight与Flex的比较选择 2010年11月 ... -
文员资料
2012-01-19 10:38 583文员资料 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 692C程序复习题1 2011年12月15日 一、正误 ... -
记录一下
2012-01-17 03:07 611记录一下 2011年12月22日 事情的 ... -
Windows Phone 7之隔离存储空间
2012-01-17 03:07 992Windows Phone 7之隔离存储空间 2011年11 ... -
linux下服务说明<转>
2012-01-17 03:07 596linux下服务说明 2011年12月13日 我的Cen ... -
郑大《大学计算机基础》实验报告书 第一章答案(有选择题)
2012-01-17 03:07 2927郑大《大学计算机基础》实验报告书 第一章答案(有选择题) 2 ... -
VB制作精简的IE浏览器
2012-01-16 01:40 994VB制作精简的IE浏览器 2011年04月28日 Opt ... -
vb webQQ登陆器
2012-01-16 01:40 1233vb webQQ登陆器 2010年06月10日 '*** ... -
VB制作浏览器代码参考
2012-01-16 01:40 747VB制作浏览器代码参考 2010年04月17日 后退 W ... -
用VB制作自己的IE网页浏览器
2012-01-16 01:40 710用VB制作自己的IE网页浏览器 2011年04月23日 ... -
Ant使用入门
2012-01-11 01:27 531Ant使用入门 2011年09月01日 Apache ... -
SAP SLD
2012-01-11 01:27 587SAP SLD 2011年09月01日 随着每个企业的I ... -
SHELL菜单
2012-01-11 01:26 539SHELL菜单 2011年09月01日 SHELL菜单 ...
相关推荐
vb做的浏览器,源代码,功能强大。网上收集
vb 浏览器源码
VB环境下使用非IE内核的浏览器控件,Google
具有普通浏览器的基本功能,上一页、下一页、主页、刷新等。有想用VB嵌入网页的朋友可以借鉴看看。
好用啊啊啊啊 很简单的 啊 啊
用ietab控件做的一个VB浏览器,有标签页,内置搜索引擎。部分功能未实现,需添加IE收藏夹功能,即可为完整的浏览器了。界面使用控件美化过了,可以作为新手学习vb 浏览器的一个例子。 使用treeview来实现收藏夹的...
这是一个比较老的VB源码了,界面在当时来说非常漂亮,可以说很酷的,现在的浏览器比原来的漂亮了许多,因此您可能看不上这款源码,不过没有关系,学习其中的代码原理也是有必要的,使用了比较多的BMP图像来修改窗体...
一个简单的VB浏览器,选用于刚刚学VB的人,需要添加部件Microsoft Internet Controls
这是一个VB浏览器,我以前写的
一个小浏览器,编写语言:VB,非常简单,看一下源代码就懂
VB浏览器源代码 webbrowser控件应用
用vb做的一个简单的浏览器调用了IE内核
vb 浏览器 小巧 功能强大 原创
vb浏览器,这是我自己制作的vb浏览器,大家可以借鉴,做出更好的,谢谢大家
用VB设计自已的Web浏览器
一个简易的浏览器,可完成一般网页浏览。用于学习和研究VB网络编程。
VB制作精简IE浏览器 VB代码 浏览器代码
vb编写浏览器源码