IE浏览器

控件: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