|
浏览器是阅读WWW上的信息资源的重要的客户端软件，众所周 知的有Microsoft Internet Explorer和Netscape Navigator浏览 器。它们功能强大，界面友好，是广大网民在Internet上冲浪的好 工具。对于多媒体应用软件及教育软件的开发者来说，可能更希望 有自己定制的浏览器集成到自己开发的产品中来，以增强应用软件 产品的功能，扩充使用多媒体信息的方式，使自己的产品更加先 进、更加具有网络化特色，从而轻松平滑地融入到Internet世界中 去。但是，这些专业性的Web浏览器的安装配置较为复杂，程序文 件又很大，对于应用软件开发者来说还有版权问题，更不具有自己 需要的特色，要想集成到自己的应用产品中，有可能融合不平滑， 还会产生很多问题，怎么办呢？Visual Basic 5.0为软件开发人员 提供了现成的窗体和控件，只要稍稍熟悉VB编程，就可以轻松地设 计出具有专业化界面的、有自己特色的Web浏览器来。而且，原有 的软件开发工具可能不支持的媒体元素如Gif动画、.au格式声音等 也都能方便地引用到您的应用软件产品中来，而这些媒体元素在 Internet上几乎可以说是取之不尽，用之不竭的。下面就对用 Visual Basic 5.0设计一个简单的Web浏览器的方法加以说明。
1．用Browser窗体设计浏览器
Visual Basic 5.0的专业版提供了浏览器窗体(Browser Form)，用它来设计自己的浏览器相当方便，许多控件不用一个个 地去设置和编写代码了，在此基础上还可以增添自己想增加的控件 和菜单等。下面对制作一个简单的浏览器的方法和步骤加以说明。
(1)在VB中打开一个新的项目(New Project)；
(2)在项目(Project)资源管理器窗口中，选定Form1窗体并按 鼠标右键，弹出菜单后，用删除窗体(Remove Form)命令删除Form1 窗体；
(3)选定项目Project1，单击鼠标右键，弹出菜单后选定添加 (Add)项，再选择添加窗体(Add Form)命令。弹出添加窗体(Add Form)对话框后，在其中选择浏览器(Browser)打开它；
(4)在项目Project1的对象窗口中可以看到tbToolbar控件中已 经设置有Back（向后）、Forward（向前）、Stop（停止）、 Refresh（刷新）、Home（归位）、Search（搜索）等命令按钮， 还可以向tbToolbar控件中添加Open（打开）、Navigate（导 航）、Exit（退出）等命令按钮，其方法是：打开tbToolbar控件 的Properties（属性）页，在Button(按钮)选项卡中单击Insert Button按钮来插入按钮，在以上命令按? Caption属性项中输入 相应的按钮名称；
(5)由于新添加的Open（打开）、Navigate（导航）、Exit （退出）等命令按钮上没有相应的图标，故可以自行添加，其方法 是：找到名为ImlIcons的ImageList控件，打开其属性页，在 Images选项卡中插入自己喜欢的图标。然后在tbToolbar控件的 Properties（属性）页中设置相应的Index值；
(6)从工具箱中选出CommonDialog（通用对话框）控件添加到 浏览器窗体中，将其命名为brwCommonDialog，为编写Open按钮相 应的事件代码作准备；
(7)在frmBrowser窗体的属性窗口中，将MDIChild属性值设置 为False；
(8)在项目Project1的属性设置窗口中设置启动对象为 frmBrowser窗体；
(9)在tbToolbar控件的代码窗口中编写Open（打开）、 Navigate（导航）、Exit（退出）等命令按钮的代码；
(10)在其他对象的代码窗口中编写或修改相应的代码。
Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
tbToolBar.Refresh
Form_Resize
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
试图定位到起始地址
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If
End Sub Private Sub brwWebBrowser_DownloadComplete()
On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub
Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
brwWebBrowser.Navigate cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
End If
End Sub
[1] [2] 下一页 |
