VB简易浏览器设计

前言：VB作为最受欢迎的语言之一，具有简单易学，可视化的特点，但是随着时代的发展，VB已经开始显得有些落后了（VS中的VB不算），我目前用的VB还是1998年版的，但是也是简单实用的。接下来介绍一下简单的浏览器设计，之前说了VB有点老了，因此会造成浏览不便的问题：

但是 我讲设计的浏览器用于浏览我们学校OJ，不会造成错误，而且可以方便的偷看数据（呵呵，信息竞赛的知道）：

下面开始正式教程：

1.创建控件

如图，只要你会一点英语，学过一点VB应该就看得懂控件的类型和作用吧，你还可以实用菜单编辑器添加菜单栏

2.创建浏览器

在部件中选用Internet Controls(如图)，选中那个图标在设计窗体上拖拽就可以添加应该浏览器，叫做WebBrowser1

3.控件功能实现

a.首先最重要的是浏览器界面要可以随着窗口size的改变而改变，代码如下：

Private Sub Form_Resize()
    On Error Resume Next
    WebBrowser1.Width = Form1.Width - 210
    WebBrowser1.Height = Form1.Height - 1500
End Sub

b.其他控件，如下代码，浏览器控件的用法请阅读代码及注释，应该很易懂的，注意我没有添加增加组合框内容的控件，但是很简单，就相当于一个作业题了吧，自己尝试添加一个吧，文章末写出代码

Option Explicit
Public HomeAddress As String
Private Sub BACK_Click() '返回
    On Error Resume Next
    WebBrowser1.GoBack
    GoAdDress.Text = WebBrowser1.LocationURL
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) '使用组合框浏览
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text
If Combo1.ListCount > 10 Then '防止组合框内容过多
Combo1.RemoveItem 1
End If
WebBrowser1.Navigate Combo1.Text
End If
End Sub

Private Sub exit_Click()
    End
End Sub

Private Sub Form_Load()
    HomeAddress = "www.******.***" '填写主页地址
    WebBrowser1.Navigate HomeAddress
End Sub

Private Sub GoAdDress_GotFocus() '防止修改地址栏时地址栏内容改变
Timer1.Enabled = False
End Sub

Private Sub GoAddress_KeyPress(KeyAscii As Integer) '处理在地址栏按下enter的操作
    If KeyAscii = 13 Then
        WebBrowser1.Navigate GoAdDress'跳转要到的页面
    End If
End Sub

Private Sub FORWARD_Click() '向前
    On Error Resume Next
    WebBrowser1.GoForward
    GoAdDress.Text = WebBrowser1.LocationURL
End Sub

Private Sub FRESH_Click() '刷新
    WebBrowser1.Refresh
End Sub

Private Sub GO_Click() '相当于按enter
    WebBrowser1.Navigate GoAdDress.Text
    GoAdDress.Text = WebBrowser1.LocationURL
End Sub

Private Sub GoAdDress_LostFocus()
Timer1.Enabled = True
End Sub

Private Sub HOME_Click() '返回home
    WebBrowser1.Navigate HomeAddress
    GoAdDress.Text = WebBrowser1.LocationURL
End Sub


Private Sub STOP_Click() '停止
    WebBrowser1.STOP
End Sub

Private Sub Timer1_Timer() '修改地址栏内容
GoAdDress.Text = WebBrowser1.LocationURL
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

c.根据自己的需求添加内容，设计符合自己需要的浏览器，如我设计的查看数据功能（前面的图）和登录密码验证功能：

（附）：add功能及代码：

Private Sub Add_Click()
Combo1.AddItem WebBrowser1.LocationURL
End Sub