打開vb
新建工程
起首做出肇端頁
肇端頁怎么做呢?
起首,先做出3個按鈕
把他們的屬性caption別離改為 百度、360、谷歌
也可以再加一個label,將其caption改為 :請選擇您所需要的瀏覽器,字號改大
雙擊空白出進入代碼編纂器,(先斷根頁面上的所有代碼然后)粘貼以下代碼:
Private Sub Command1_Click()
Me.Hide
Form2.Show '跳轉至百度搜刮引擎
End Sub
Private Sub Command2_Click()
Me.Hide
Form3.Show '跳轉至360搜刮引擎
End Sub
Private Sub Command3_Click()
Me.Hide
Form4.Show '跳轉谷歌
End Sub
然后單擊右側工程里的窗體=》(左鍵)選中添加=》選中添加窗體【如圖所示】 **添加3個窗體!
或者單擊左上快捷按鈕【如圖】
在東西欄里右鍵選擇部件
勾選并確定
部件欄里多出這么一個部件
先將頁面拉大:大要這樣
然后選中webbrowser部件,可將頁面拉滿,如圖
進入代碼編纂器:寫入以下代碼:
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub Label1_Click()
Me.Hide
Form1.Show '改換選擇瀏覽器頁面
End Sub
在頁面右下角插手一個label
輸入 : 改換
這樣便利切換搜刮引擎
其余2種方式一樣
做好今后可以查看其結果
感謝大師,感覺不錯的請投票撐持,沒學會的可以在評論區留言哦
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!