IE浏览器

 控件:WebBrowser,TreeView

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

代码:

1.     Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
2.         Select Case e.Node.Text
3.             Case "Visual Basic Forums"
4.                 WebBrowser1.Navigate("http://go.microsoft.com/" _
5.                     & "fwlink/?LinkID=82999")
6.             Case "Visual Basic Express Edition"
7.                 WebBrowser1.Navigate("http://go.microsoft.com/" _
8.                     & "fwlink/?LinkID=82994")
9.             Case "Visual Basic IDE"
10.                 WebBrowser1.Navigate("http://go.microsoft.com/" _
11.                     & "fwlink/?LinkID=82996")
12.             Case "Visual Basic Language"
13.                 WebBrowser1.Navigate("http://go.microsoft.com/" _
14.                     & "fwlink/?LinkID=82997")
15.             Case "襄樊学院"
16.                 WebBrowser1.Navigate("http://www.xfu.edu.cn")
17.             Case "网易"
18.                 WebBrowser1.Navigate("http://www.163.com")
19.             Case "百度"
20.                 WebBrowser1.Navigate("http://www.baidu.com")
21.             Case "好123"
22.                 WebBrowser1.Navigate("http://www.hao123.com")
23.         End Select
24.     End Sub

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

控件:timer    设置它的interval=1000

代码:

1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
2.         Me.Text = "巍威提示你,现在时间:" + Now.ToString
3. '或    Me.Text = "巍威提示你,现在时间:" + cstr(Now)
4.     End Sub