前言: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