步驟1:創建項目
創建一個新的Windows窗體項目,并將其稱為Web瀏覽器。調整窗體的大小以適應您的喜好。
步驟2:添加控件并更改屬性
從工具箱,將TextBox,WebBrowser和A Button拖到窗體上。像放置在圖片中一樣放置它們。然后,編輯TextBox和WebBrowser的 Anchor 屬性,以便選中灰色方形周圍的所有框(在編輯anchor屬性時顯示),這將允許控件在出現時“拉伸”窗體被調整大小。對Button進行相同的操作,但僅將其設置為“ Top,Right”。
還將Form1的 Text 屬性更改為Web Browser,或類似的操作來更改標題欄。 》
步驟3:代碼!
雙擊Button1,然后將以下代碼添加到編輯器中的“ Private Sub”之后行和“結束子”行之前
WebBrowser1.Navigate(TextBox1.Text)此代碼僅告訴程序:
當有人單擊 Button1 時,獲取 WebBrowser 到 Navigate 導航至 TextBox1
中的所有內容!您具有運行正常的Web瀏覽器。單擊播放按鈕進行測試。
第4步:更多內容
現在,您不認為我只是想給您只需要一行代碼-是嗎?
在接下來的幾個步驟中,我們將實現以下內容:
隨著頁面的變化而變化的地址欄
返回,前進和刷新按鈕
狀態欄。
步驟5:地址欄
目前,所有地址欄的作用是顯示您鍵入的頁面,如果單擊鏈接,則更改不會反映在地址欄中。要解決此問題,我們需要添加更多代碼
回到設計視圖,單擊“ Form 1.vb(設計)”,然后雙擊WebBrowser控件。它將切換回代碼視圖,但是那里將有更多代碼,請注意它顯示為“ WebBrowser1_DocumentCompleted”,這是我們想要的代碼,因此我們無需在此處進行任何更改,但是有一個空白在End Sub語句之前的那一行下面,我們要在其中添加一些代碼。在其中輸入以下內容
TextBox1.Text = WebBrowser1.Url.ToString
,這告訴程序一旦 WebBrowser1_DocumentCompleted ,我們應將 TextBox1.Text 更改為 WebBrowser1 .URL 。之所以有ToString,是因為默認情況下,Web瀏覽器的URL屬性與我們的文本框所需的數據類型(字符串)不同。 ToString將URL寫入TextBox的字符串。
第6步:操作按鈕
切換回設計視圖,并將3個新按鈕拖動到表單上并放置它們。更改每個的Text屬性:Button2 =后退,Button3 =前進,Button4 =刷新。如果將它們放置得像我的一樣,則將“刷新”的錨點屬性調整為“頂部”,“右鍵”
雙擊“后退”按鈕,然后鍵入以下代碼。
WebBrowser1.GoBack()返回設計,雙擊“前進”并鍵入
WebBrowser1.GoForward()
“設計”視圖,然后雙擊以刷新。
WebBrowser1.Refresh()
測試瀏覽器,然后嘗試新功能。
步驟7:狀態欄
回到設計視圖,添加標簽,將“文本”更改為“正在加載。..”(不帶引號)
現在,單擊Form1.vb選項卡進入代碼視圖。找到WebBrowser1_DocumentCompleted條目,然后在您之前放置的代碼下方鍵入
Label1.Text = “Done”
現在,單擊上方代碼顯示DocumentCompleted的位置。將鼠標移至兩個下拉框所在的位置。選擇第二個(表示DocumentCompleted的那個),然后選擇“導航”。然后,將出現一些新代碼-鍵入
Label1.Text = “Loading”,這只會在頁面加載時提供指示。
此外,您可能需要設置標簽的anchor屬性。
步驟8:完成!
就可以了。您有一個功能齊全的Web瀏覽器。繼續根據需要對其進行自定義。我為完成此說明的人員準備了一些作業。
實施以下操作:
home函數
在加載頁面時將“刷新”按鈕更改為“停止”按鈕。
我希望這些項目向您展示了編程的簡易性!
第9步:解決方案
對于那些完成了我的第一個VB培訓的人-我有我最后設置的作業的解決方案。
更改背景顏色
這很簡單-將Form1的BackColour屬性更改為其他顏色
添加一些版權信息
更改了text屬性的新標簽將起到作用
使用Image更改表單大小
將AutoSize更改為True,將AutoSizeMode更改為GrowAndShrink
完成!
仍然要來:我將創建更多VB.NET Instructable。保持編碼!
責任編輯:wv
-
net
+關注
關注
0文章
125瀏覽量
56138 -
Web瀏覽器
+關注
關注
0文章
14瀏覽量
9274
發布評論請先 登錄
相關推薦
評論