使用WebBrowser与TreeView-优快云博客

本文介绍了一个使用Visual Basic实现的简单应用程序案例，该程序通过TreeView控件选择不同的节点来导航WebBrowser控件到预设的网址，并展示了如何利用Timer控件实现在窗口标题栏显示动态时间。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

控件:WebBrowser,TreeView

注意:修改WebBrowser的Anchor属性 TreeView的各个结点,以及结点的内容需要事先加入

代码:

PrivateSubTreeView1_AfterSelect(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.TreeViewEventArgs)HandlesTreeView1.AfterSelect

SelectCasee.Node.Text

Case"VisualBasicForums"

WebBrowser1.Navigate("http://go.microsoft.com/"_

&"fwlink/?LinkID=82999")

Case"VisualBasicExpressEdition"

WebBrowser1.Navigate("http://go.microsoft.com/"_

&"fwlink/?LinkID=82994")

Case"VisualBasicIDE"

WebBrowser1.Navigate("http://go.microsoft.com/"_

&"fwlink/?LinkID=82996")

Case"VisualBasicLanguage"

WebBrowser1.Navigate("http://go.microsoft.com/"_

&"fwlink/?LinkID=82997")

Case"襄樊学院"

WebBrowser1.Navigate("http://www.xfu.edu.cn")

Case"网易"

WebBrowser1.Navigate("http://www.163.com")

Case"百度"

WebBrowser1.Navigate("http://www.baidu.com")

Case"好123"

WebBrowser1.Navigate("http://www.hao123.com")

EndSelect

EndSub

在标题栏加一个动态的时钟显示:

控件:timer 设置它的interval=1000

代码:

PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick

Me.Text="巍威提示你,现在时间:"+Now.ToString

'或Me.Text="巍威提示你,现在时间:"+cstr(Now) 

EndSub