3.2.1整体介绍
包括本文中的程序在内的任何浏览器的开发中，其核心技术都利用了微软公司提供的一个浏览器控件—WebBrowser。在Visual Basic 6.0中该控件不是默认就在工具箱里，需要用户自己将它调出了，先选择Visual Basic 6.0菜单中的“工程”—>“部件”，在弹出的对话框中选择“Microsoft Internet Controls”,然后点击“运用”后“确定”（如下图3—2）。该控件就会以一个小地球的图标出现在工具栏里。这样就可以接着完成后面的编程工作。
主窗体围绕着WebBrowser控件共有70多个属性，而其中的事件更是达上百个，也是可见它在整个程序中的重要性。
3.2.2 PageSetup事件
“PageSetup”菜单单击事件的功能是如下图3—4所示的页面设计。
Private Sub mnu_PageSetup_Click ()
brwWebBrowser (TabStrip1.Tabs (CurTab_Index).Tag).ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT
End Sub
3.2.3 “Find On this Page”事件
“Find On this Page”菜单单击事件，弹出当前所浏览网页内部查找对话框。
Private Sub mnu_EditFind_Click ()
On Error GoTo mnu_EditFind_Click_Error:
SetFocusOnly = True
TabStrip1.SetFocus
brwWebBrowser (TabStrip1.Tabs(CurTab_Index).Tag).SetFocus
SendKeys "^f"
Exit Sub
mnu_EditFind_Click_Error:
ShowErrorMessageBox ("mnu_EditFind_Click")
End Sub
3.2.4 AddToFavorites函数
AddToFavorites函数，将当前浏览的网页添加到收藏夹。
Private Sub mnu_AddToFavorites_Click ()
On Error GoTo mnu_AddToFavorites_Click_Error:
Call AddToFavorites
Exit Sub
mnu_AddToFavorites_Click_Error:
ShowErrorMessageBox ("mnu_AddToFavorites_Click")
End Sub
3.2.5“Internet Options”事件
“Internet Options”菜单单击事件代码，用于设置IE的属性。
Private Sub mnu_InterNetOptions_Click ()
Dim RetVal
RetVal = Shell ("rundll32.exe shell32.dll, Control_RunDLL Inetcpl.cpl", vbNormalFocus)
End Sub
