用VB制作简单网页浏览器问题
想做一简单的网页浏览器分别新建了工程,然后添加WebBrowser控件 几个Command控件(分别命名为,“后退”“转到”“前进”) 一个Text控件
想做成这样的效果:
在text里面输入网址后点转到后 webbrowser能访问输入的网址
新手刚学VB 各位大大们指教下吧 尽量说的详细先 谢了 --------------------编程问答-------------------- 大大们进来帮我看看吧 。。。 --------------------编程问答-------------------- 高手呢,,高手呢。。人来啊 --------------------编程问答-------------------- 以后要学会自己搜索数据:
*********************************************************************************
利用IE控件设计简易浏览器
1999年第81、85两期的《电脑工作室》分别刊登了用C++ Builder和Visual C++开发简易浏览器两篇文章,给用户开发自己的简易浏览器提供了很好的方法。但大多数用户对这两种语言接触比较少,而Visual Basic用得比较多。下面我向大家介绍一种用VB6.0中的Microsoft Internet Controls控件制作简易浏览器的方法,供同行们参考。
Internet Explorer控件
如果机器中安装了IE3.0及其以上版本,在VB的控件列表窗口中就会有一个名为Microsoft Internet Controls的控件,我们可以利用该控件来制作简易浏览器。
1.该控件有以下几个重要的方法:
GoHome :装入 Internet Explorer设定的起始页。
用法: object.GoHome
Navigate : 装入页面。
用法: object.Navigate url,其中url为URL地址,如“http:\\www.microsoft.com”
GoBack : 返回上一个页面。
用法: object.GoBack
GoForward:进入下一个页面。
用法: object.GoForward
Refresh:刷新页面。
用法:object.Refresh
Stop : 停止载入页面。
用法: object.Stop
GoSearch:搜索页面。
用法:object.GoSearch
2该控件有以下重要事件:
BeforeNavigate Event: 在每次装入页面前调用,声明如下:
Private Sub object_BeforeNavigate(ByVal URL As String,ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
其中URL参数为将要装入的页面地址。
StatusTextChang Event: 每次浏览器的操作状态改变时调用,声明如下:
Private Sub WebBrowser1—StatusTextChange(ByVal Text As String)
其中Text为浏览器的操作状态。
DownloadComplete Event:页面下载结束后调用,声明如下:
Private Sub WebBrowser1—DownloadComplete()
NavigateComplete Event:登录结束后调用,声明如下:
Private Sub WebBrowser1—NavigateComplete(ByVal pDisp As Object, URL As Variant)
用该控件制作浏览器的方法
下面介绍如何通过 Internet Explorer控件编程实现对WWW的访问。
1.首先加载“Microsoft Internet Control”和“Microsoft Windows Common Controls 6.0(SP3)”。然后新建一表单Form1,在Form1中添加Microsoft Internet Control控件显示页面 WebBrowser1。
2.在Form1中添加一个ToolBar控件ToolBar1和一个ImageList控件ImageList1,以实现对浏览器的操作。
3. 在Form1中添加一个ComboBox控件Combo1,用来输入页面地址。
4.在Form1中添加Label控件Label1,用来显示当前浏览器操作状态。
5.在Form1中添加Label控件Label2,其Caption属性为“地址:”放在ComboBox 控件之前。
控件事件代码
Private Sub Form—Load()
′程序装入后进入IE设定的起始页
On Error Resume Next
Me.Show
ToolBar1.Refresh
Form—Resize
WebBrowser1.GoHome
End Sub
Private Sub Form—Resize()
′改变窗口大小后同时改变控件的大小
On Error Resume Next
WebBrowser1.Width=Form1.ScaleWidth
WebBrowser1.Height=Form1.ScaleHeight-950
Label1.Width=Form1.ScaleWidth
Label1.Top=Form1.ScaleHeight-200
End Sub
Private Sub ComBo1—Click()
WebBrowser1.Navigate ComBo1.Text
End Sub
Private Sub Combo1—KeyPress(KeyAscii As Integer) ′浏览输入的页面
On Error Resume Next
If KeyAscii = 13 Then
ComBo1—Click
End If End Sub
Private Sub WebBrowser1—BeforeNavigate(ByVal URL As String, ByVal FlagsAs Long,ByVal TargetFrameName As String, PostData As Variant, ByVal HeadersAs String, Cancel As Boolean) ′将当前显示的页面的URL地址显示在 ComBo1上
On Error Resume Next
ComBo1.Text=URL
End Sub
Private Sub WebBrowser1—DownloadComplete()
On Error Resume Next
Me.Caption=WebBrowser1.LocationName
End Sub
Private Sub WebBrowser1—StatusTextChange(ByVal Text As String)
′Label1显示当前页面装入情况
On Error Resume Next
Label1.Caption = Text
End Sub
Private Sub WebBrowser1—NavigateComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim i As Integer
Dim bFound As Boolean
Me.Caption=WebBrowser1.LocationName
For i=0 To Combo1.ListCount-1
If Combo1.List(i)=WebBrowser1.LocationURL Then
bFound=True
Exit For End If
Next i
If bFound Then
Combo1 .RemoveItem i
End If
Combo1.AddItem WebBrowser1.LocationURL, 0
Combo1.ListIndex=0
End Sub
Private Sub ToolBar1—ButtonClick(ByVal Button As Button)
On Error Resume Next
Select Case Button.Key
Case ″Back″
WebBrowser1.GoBack
Case ″Forward″
WebBrowser1.GoForward
Case ″Refresh″
WebBrowser1.Refresh
Case ″Home″
WebBrowser1.GoHome
Case ″Search″
WebBrowser1.GoSearch
Case ″Stop″
timTimer.Enabled=False
WebBrowser1.Stop
Me.Caption=WebBrowser1.LocationName
End Select
End Sub
现在,单击启动你就可以使用你自己的浏览器了。该程序在Windows 98、Visual Basic 6.0下运行通过。
--------------------编程问答-------------------- 楼上回答很全了。 --------------------编程问答-------------------- 标记一下 --------------------编程问答-------------------- 我编了一个浏览器可也打开网页,但是,当打开一些网页时会跳转到ie浏览器,怎么解决,是什么地方出了问题呀
求解决
--------------------编程问答-------------------- 顶顶。。。。。
补充:VB , 基础类