关于用VB编写浏览器
2009年12月25日
VB编写简易浏览器代码:
(1)、相关控件:略
(2)、废话不多说,上代码:
Dim popnum As Integer
Dim urlstring As String
Dim frmnew() As New frmmain
Private Sub close_Click()
End
End Sub
Private Sub Command7_Click()
WebBrowser1(0).Navigate Combo1.Text
Dim i%
For i = 0 To Combo1.ListIndex + 1
If Combo1.List(i) Combo1.Text Then
Combo1.AddItem Combo1.Text
End If
Next i
End Sub
Private Sub Command1_Click()
WebBrowser1(0).GoBack
End Sub
Private Sub Command2_Click()
WebBrowser1(0).GoForward
End Sub
Private Sub Command3_Click()
WebBrowser1(0).GoHome
End Sub
Private Sub Command4_Click()
WebBrowser1(0).Stop
End Sub
Private Sub Command5_Click()
WebBrowser1(0).Refresh
End Sub
Private Sub Command6_Click()
WebBrowser1(0).GoSearch
End Sub
Private Sub Form_Load()
Combo1.Text = "www.google.com"
WebBrowser1(0).GoHome
End Sub
Private Sub Form_Resize()
WebBrowser1(0).Top = frmmain.ScaleTop + 1070
WebBrowser1(0).Left = frmmain.ScaleLeft
WebBrowser1(0).Width = frmmain.ScaleWidth
WebBrowser1(0).Height = frmmain.ScaleHeight + 200
ProgressBar1.Top = frmmain.ScaleTop + frmmain.ScaleHeight - 150
ProgressBar1.Left = frmmain.ScaleLeft + 50
ProgressBar1.Width = frmmain.ScaleWidth - 330
Combo1.Left = frmmain.ScaleLeft + 1000
Combo1.Width = frmmain.ScaleWidth - 2000
Command7.Left = Combo1.Left + Combo1.Width + 50
P1.Top = frmmain.ScaleTop
P1.Left = frmmain.ScaleTop
P1.Width = frmmain.ScaleWidth
P1.Height = frmmain.ScaleHeight
End Sub
Private Sub jiaoda_Click()
frmmain.FontSize = 22
End Sub
Private Sub jiaoxiao_Click()
frmmain.FontSize = 14
End Sub
Private Sub nub_Click()
WebBrowser1(0).GoBack
End Sub
Private Sub nuf_Click()
WebBrowser1(0).GoForward
End Sub
Private Sub open_Click()
frmopen.Show
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbkeyretrun Then WebBrowser1(0).Navigate (Combo1.Text)
If Shift = 2 And KeyCode = vbKeyReturn Then
Text1.Text = "www." & "text1.text" & ".com"
WebBrowser1(0).Navigate (Combo1.Text)
End If
End Sub
Private Sub save_Click()
CD1.Action = 2
CD1.FileName = Combo1.Text
CD1.Filter = "网页|*.htm"
CD1.FilterIndex = 1
End Sub
Private Sub tubiaozhuanhuan_Click()
CD1.ShowOpen
frmmain.Icon = LoadPicture(CD1.FileName)
End Sub
Private Sub WebBrowser1_CommandStateChange(index As Integer, ByVal Command As Long, ByVal Enable As Boolean)
Command2.Enabled = Enable
nub.Enabled = Enable
End Sub
Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
If index WebBrowser1(num)
ReDim frmnew(num)
End If
frmnew(num).Show
Set ppDisp = frmnew(num).WebBrowser1(0).object
End Sub
Private Sub WebBrowser1_TitleChange(index As Integer, ByVal Text As String)
Combo1.Text = WebBrowser1(0).LocationURL
frmmain.Caption = Combo1.Text & "-LFF浏览器"
If num > 0 Then frmnew(num).Caption = frmnew(num).WebBrowser1(0).LocationName
End Sub
Private Sub WebBrowser1_ProgressChange(index As Integer, 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 zhongdeng_Click()
frmmain.FontSize = 16
End Sub
Private Sub zhuanhuan_Click()
CD1.ShowOpen
P1.Picture = LoadPicture(CD1.FileName)
End Sub
有兴趣的同学,自己编写哈!祝你好运!!!
发表评论
-
实战 OpenLaszlo 与 db4o
2012-01-20 02:43 520实战 OpenLaszlo 与 db4o 201 ... -
Flex是咋回事之三 谁用谁知道
2012-01-20 02:43 527Flex是咋回事之三 谁用谁知道 2010年09月21日 ... -
Flex 和 Ogre
2012-01-20 02:43 631Flex 和 Ogre 2011年04月12日 最近和赖 ... -
[回首来时路]
2012-01-20 02:43 601[回首来时路] 2011年03月07日 [回首来时路] ... -
flex 开源项目组件大全
2012-01-20 02:43 697flex 开源项目组件大全 2010年09月13日 Fl ... -
心灵的独白
2012-01-19 10:36 608心灵的独白 2011年12月25 ... -
现代工厂管理必备全书
2012-01-19 10:36 885现代工厂管理必备全书 2010年06月20日 详细目录 ... -
阿保集团
2012-01-19 10:35 440阿保集团 2010年07月15日 ... -
接上 人味??1
2012-01-19 10:35 456接上 人味??1 2011年06月09日 4.商品部经理 ... -
第三部分 ISO办
2012-01-19 10:35 555第三部分 ISO办 2011年06月04日 一、ISO ... -
2011-12-4
2012-01-17 03:07 4652011-12-4 2011年12月04日 ... -
2012-1-12
2012-01-17 03:07 5282012-1-12 2012年01月13日 计算机类基础 ... -
i9001
2012-01-17 03:06 690i9001 2011年12月13日 一、外观检查,外壳、 ... -
第一章第一节计算机语言C语言基础教程
2012-01-17 03:06 705第一章第一节计算机语言C语言基础教程 2012年01月02日 ... -
webbrowser模拟点击……
2012-01-16 01:40 787webbrowser模拟点击…… 2009年09月24日 ... -
使用 WebBrowser 控件如何防止某些网页强行最大化
2012-01-16 01:40 1013使用 WebBrowser 控件如何防止某些网页强行最大化 ... -
webbrowser模拟确定窗口对话框
2012-01-16 01:40 801webbrowser模拟确定窗口对 ... -
使用Webbrowser的一点心得体会
2012-01-16 01:40 709使用Webbrowser的一点心得体会 2009年06月29 ...
相关推荐
vb编写浏览器源码
vb编写的图片浏览器vb编写的图片浏览器vb编写的图片浏览器
这是一个关于VB编写的浏览器源码例子!VBGROUP 5.0 StartupProject=工程1.vbp Project=工程_zxm.vbp
用VB编写的浏览器,可以浏览任意网站,适合课程设计
自己做的浏览器 自己用vb写浏览器(.net 平台开发)
VB编写的浏览器 有代码 vb+webbrowser
使用VB编写的一个精简浏览器程序,适合初学者学习使用
vb编写定时浏览器
自制浏览器,vb编写,代码仅供参考,切勿抄袭!
vb 开发的 浏览器代码 调用windows 内部的intent 空间 实现
vb做的浏览器,源代码,功能强大。网上收集
1. 用vb 6 编制 web浏览器 2. 用vb 6 编制 IE风格浏览器
一个VB编写的PDF浏览器,支持中文,支持搜索、转到等简单功能,内付VB、VC++、HTMP等语言!
安全VB编写的浏览器,体验版本Siluren Internet Explorer
vb 编写的浏览器,也是从网络上弄的,请大家多关照。
vb编写的简易浏览器和源码 ,实现了基本功能,可以自己在完善一下
在VB中用Winsock控件编写的网页浏览器.
一个简单的VB浏览器,选用于刚刚学VB的人,需要添加部件Microsoft Internet Controls
用vb6.0编写的浏览器,分辨率是1028*768的,页面简洁漂亮,速度极快,基本的浏览功能都有,美中不足的是没有设置,收藏夹功能,希望各位编程爱好者与我来信多多交流啊,我是大连理工大学一学生。
这个浏览器是用Vb编的 由于没有插件 只能上一般的文字的网站 看不了视频 但是能查看网站的源代码