步驟1：創(chuàng)建項目

創(chuàng)建一個新的Windows窗體項目，并將其稱為Web瀏覽器。調(diào)整窗體的大小以適應(yīng)您的喜好。

步驟2：添加控件并更改屬性

從工具箱，將TextBox，WebBrowser和A Button拖到窗體上。像放置在圖片中一樣放置它們。然后，編輯TextBox和WebBrowser的 Anchor 屬性，以便選中灰色方形周圍的所有框（在編輯anchor屬性時顯示），這將允許控件在出現(xiàn)時“拉伸”窗體被調(diào)整大小。對Button進行相同的操作，但僅將其設(shè)置為“ Top，Right”。

還將Form1的 Text 屬性更改為Web Browser，或類似的操作來更改標題欄。 》

步驟3：代碼！

雙擊Button1，然后將以下代碼添加到編輯器中的“ Private Sub”之后行和“結(jié)束子”行之前

WebBrowser1.Navigate（TextBox1.Text）此代碼僅告訴程序：

當有人單擊 Button1 時，獲取 WebBrowser 到 Navigate 導(dǎo)航至 TextBox1

中的所有內(nèi)容！您具有運行正常的Web瀏覽器。單擊播放按鈕進行測試。

第4步：更多內(nèi)容

現(xiàn)在，您不認為我只是想給您只需要一行代碼-是嗎？

在接下來的幾個步驟中，我們將實現(xiàn)以下內(nèi)容：

隨著頁面的變化而變化的地址欄

返回，前進和刷新按鈕

狀態(tài)欄。

步驟5：地址欄

目前，所有地址欄的作用是顯示您鍵入的頁面，如果單擊鏈接，則更改不會反映在地址欄中。要解決此問題，我們需要添加更多代碼

回到設(shè)計視圖，單擊“ Form 1.vb（設(shè)計）”，然后雙擊WebBrowser控件。它將切換回代碼視圖，但是那里將有更多代碼，請注意它顯示為“ WebBrowser1_DocumentCompleted”，這是我們想要的代碼，因此我們無需在此處進行任何更改，但是有一個空白在End Sub語句之前的那一行下面，我們要在其中添加一些代碼。在其中輸入以下內(nèi)容

TextBox1.Text = WebBrowser1.Url.ToString

，這告訴程序一旦 WebBrowser1_DocumentCompleted ，我們應(yīng)將 TextBox1.Text 更改為 WebBrowser1 .URL 。之所以有ToString，是因為默認情況下，Web瀏覽器的URL屬性與我們的文本框所需的數(shù)據(jù)類型（字符串）不同。 ToString將URL寫入TextBox的字符串。

第6步：操作按鈕

切換回設(shè)計視圖，并將3個新按鈕拖動到表單上并放置它們。更改每個的Text屬性：Button2 =后退，Button3 =前進，Button4 =刷新。如果將它們放置得像我的一樣，則將“刷新”的錨點屬性調(diào)整為“頂部”，“右鍵”

雙擊“后退”按鈕，然后鍵入以下代碼。

WebBrowser1.GoBack（）返回設(shè)計，雙擊“前進”并鍵入

WebBrowser1.GoForward（）

“設(shè)計”視圖，然后雙擊以刷新。

WebBrowser1.Refresh（）

測試瀏覽器，然后嘗試新功能。

步驟7：狀態(tài)欄

回到設(shè)計視圖，添加標簽，將“文本”更改為“正在加載。..”（不帶引號）

現(xiàn)在，單擊Form1.vb選項卡進入代碼視圖。找到WebBrowser1_DocumentCompleted條目，然后在您之前放置的代碼下方鍵入

Label1.Text = “Done”

現(xiàn)在，單擊上方代碼顯示DocumentCompleted的位置。將鼠標移至兩個下拉框所在的位置。選擇第二個（表示DocumentCompleted的那個），然后選擇“導(dǎo)航”。然后，將出現(xiàn)一些新代碼-鍵入

Label1.Text = “Loading”，這只會在頁面加載時提供指示。

此外，您可能需要設(shè)置標簽的anchor屬性。

步驟8：完成！

就可以了。您有一個功能齊全的Web瀏覽器。繼續(xù)根據(jù)需要對其進行自定義。我為完成此說明的人員準備了一些作業(yè)。

實施以下操作：

home函數(shù)

在加載頁面時將“刷新”按鈕更改為“停止”按鈕。

我希望這些項目向您展示了編程的簡易性！

第9步：解決方案

對于那些完成了我的第一個VB培訓(xùn)的人-我有我最后設(shè)置的作業(yè)的解決方案。

更改背景顏色

這很簡單-將Form1的BackColour屬性更改為其他顏色

添加一些版權(quán)信息

更改了text屬性的新標簽將起到作用

使用Image更改表單大小

將AutoSize更改為True，將AutoSizeMode更改為GrowAndShrink

完成！

仍然要來：我將創(chuàng)建更多VB.NET Instructable。保持編碼！
責任編輯：wv