打开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 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!