前言：VB作為最受歡迎的語言之一，具有簡單易學，可視化的特點，但是隨著時代的發展，VB已經開始顯得有些落后了（VS中的VB不算），我目前用的VB還是1998年版的，但是也是簡單實用的。接下來介紹一下簡單的瀏覽器設計，之前說了VB有點老了，因此會造成瀏覽不便的問題：

但是 我講設計的瀏覽器用于瀏覽我們學校OJ，不會造成錯誤，而且可以方便的偷看數據（呵呵，信息競賽的知道）：

下面開始正式教程：

1.創建控件

如圖，只要你會一點英語，學過一點VB應該就看得懂控件的類型和作用吧，你還可以實用菜單編輯器添加菜單欄

2.創建瀏覽器

在部件中選用Internet Controls(如圖)，選中那個圖標在設計窗體上拖拽就可以添加應該瀏覽器，叫做WebBrowser1

3.控件功能實現

a.首先最重要的是瀏覽器界面要可以隨著窗口size的改變而改變，代碼如下：

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

b.其他控件，如下代碼，瀏覽器控件的用法請閱讀代碼及注釋，應該很易懂的，注意我沒有添加增加組合框內容的控件，但是很簡單，就相當于一個作業題了吧，自己嘗試添加一個吧，文章末寫出代碼

Option Explicit Public HomeAddress As String Private Sub BACK_Click() '返回On Error Resume NextWebBrowser1.GoBackGoAdDress.Text = WebBrowser1.LocationURL End SubPrivate 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 SubPrivate Sub exit_Click()End End SubPrivate Sub Form_Load()HomeAddress = "www.******.***" '填寫主頁地址WebBrowser1.Navigate HomeAddress End SubPrivate Sub GoAdDress_GotFocus() '防止修改地址欄時地址欄內容改變 Timer1.Enabled = False End SubPrivate Sub GoAddress_KeyPress(KeyAscii As Integer) '處理在地址欄按下enter的操作If KeyAscii = 13 ThenWebBrowser1.Navigate GoAdDress'跳轉要到的頁面End If End SubPrivate Sub FORWARD_Click() '向前On Error Resume NextWebBrowser1.GoForwardGoAdDress.Text = WebBrowser1.LocationURL End SubPrivate Sub FRESH_Click() '刷新WebBrowser1.Refresh End SubPrivate Sub GO_Click() '相當于按enterWebBrowser1.Navigate GoAdDress.TextGoAdDress.Text = WebBrowser1.LocationURL End SubPrivate Sub GoAdDress_LostFocus() Timer1.Enabled = True End SubPrivate Sub HOME_Click() '返回homeWebBrowser1.Navigate HomeAddressGoAdDress.Text = WebBrowser1.LocationURL End SubPrivate Sub STOP_Click() '停止WebBrowser1.STOP End SubPrivate Sub Timer1_Timer() '修改地址欄內容 GoAdDress.Text = WebBrowser1.LocationURL End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)End Sub

c.根據自己的需求添加內容，設計符合自己需要的瀏覽器，如我設計的查看數據功能（前面的圖）和登錄密碼驗證功能：

（附）：add功能及代碼：

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

總結

以上是生活随笔為你收集整理的VB简易浏览器设计的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。