荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: huanghm (东方不败), 信区: Program
标 题: 用VB5.0开发阅览器
发信站: BBS 荔园晨风站 (Tue Jun 2 05:29:39 1998), 转信
Internet是目前最热门的话题，各个软件公司推出新
产品都强调网络功能，如Microsoft Word97中，对Intern
et全面支持，用户可以方便的和网上同事协作。我们是否
也能在自己的应用程序中加入对Internet的支持？当然可
以，利用Active X控件，程序员可以方便的实现对Intern
et的访问。下面是一个用VB5.0制作的超小型阅览器，在
应用中，朋友们可以很容易的扩充它的功能。
1.使用Webbrowser控件
在VB5.0环境下，在“工具箱”上击鼠标右键，从弹
出菜单中选定“部件”项，再选定“部件”窗口中的“控
件”选卡，从部件列表中选定“Microsoft Internet Cont
rols”控件前的复选框，然后击“确定”键。完成这些操
作后，“工具箱”上多了两个图标：一个小地球和一个小
文件夹，小地球就是webbrowser控件。
2界面制作
把webbrowser控件加入“工具箱”后，我们可以开始
制作界面。由于篇幅所限，这里只是用最简单的界面实现
基本功能。所用控件如表中所示。
控件名
控件类型
控件属性
属性值
Foml
fom
Height
4305
Width
4800
Combol
ComboBox
Hreight
300
Width
4455
Left
0
Top
840
Timerl
Timer
Interval
5
Enable
False
Webbrowserl
Webbrowser
Height
1815
Width
4455
Left
120
Top
1440
back
Commandbutton
Height
495
Width
750
Left
240
Top
240
Caption
Back
forward
Commandbutton
Height
495
Width
750
Left
1200
Top
240
Caption
Forward
stop
Commandbutton
Height
495
Width
750
Left
3120
Top
240
Caption
Stop
refrash
Commandbutton
Height
495
Width
750
Left
3120
Top
240
Caption
Refrash
3编码
程序代码如下：
Public AddressString As String
Dim mbNavigate As Boolean
Private Sub back—Click() ′回到上一阅览地址
′
WebBrowser1.GoBack
End Sub
Private Sub forward—Click() ′回到下一阅览
地址′
WebBrowser1.GoForward
End Sub
Private Sub refrash—Click() ′刷新当前阅览
页内容′
WebBrowser1.Refresh
End Sub
Private Sub stop—Click() ′停止下载当前
阅览内容′
WebBrowser1.stop
End Sub
Private Sub webbrowser1—DownloadComplete() ′
下载完成后修改窗体标题′
On Error Resume Next
Me.Caption=WebBrowser1.LocationName
End Sub
Private Sub combo1—Click() ′URL修改后阅
览新页′
If mbNavigate Then Exit Sub
Timer1.Enabled=True
WebBrowser1.Navigate Combo1.Text
End Sub
Private Sub combo1—KeyPress(KeyAscii As Integ
er) ′URL修改后阅览新页′
On Error Resume Next
If KeyAscii=vbKeyReturn Then
combo1—Click
End If
End Sub
Private Sub Form—Load() ′装入窗体时自动打开
武汉市教育网′
On Error Resume Next
Me.Show
tbToolBar.Refresh
Form—Resize
Combo1.Move 50, lblAddress.Top＋lblAddress.Hei
ght＋15
AddressString=″http://www.whnet.edu.cn″
If Len(AddressString)>0 Then
Combo1.Text=AddressString
Combo1.AddItem Combo1.Text
Timer1.Enabled=True
WebBrowser1.Navigate AddressString
End If
End Sub
Private Sub Form—Resize() ′窗体大小改变时改
变窗体内控件位置和大小′
Combo1.Width=Me.ScaleWidth－100
WebBrowser1.Width=Me.ScaleWidth－100
WebBrowser1.Height=Me.ScaleHeight－100
End Sub
Private Sub timer1—Timer() ′正下载时显示提
示′
If WebBrowser1.Busy=False Then
Timer1.Enabled=False
Me.Caption=WebBrowser1.LocationName
Else
Me.Caption=″Working...″
End If
End Sub
Private Sub WebBrowser1—NavigateComplete2(ByV
al pDisp As Object, URL As Variant) ′把成功阅览
的URL加入列表框′
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
mbNavigate=True
If bFound Then
Combo1.RemoveItem i
End If
Combo1.AddItem WebBrowser1.LocationURL, 0
Combo1.ListIndex=0
mbNavigate=False
End Sub
以上程序在VB5.0中文版上通过，在实际应用中可进
一步修改：如把几个按钮改成工具条、加上状态条、菜单
等等，这里就不一一说明了。
--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.25]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店