VB.NET学习笔记（3）

 TabControl控件实现：动态插入TablePage，双击关闭TabPage功能

拖一个TabControl控件，名字叫TabControl1

‘动态插入TablePage
Dim myTablePage1 As New TabPage()
myTablePage1.Name = "Node1"
myTablePage1.Text = "Page1"
TabControl1.TabPages.Add(myTablePage1)

选中TabControl1控件->属性->事件，添加鼠标双击事件
Private Sub TabControl1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As   
    System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseDoubleClick

        TabControl1.TabPages.Remove(TabControl1.SelectedTab)

End Sub

向TablePage中添加控件
‘选择TablePage索引号，我使用0号TablePages
TabControl1.SelectTab(0)
’加入控件，我添加了一个webBrowser
Dim webBrowser1 As New WebBrowser()
TabControl1.SelectedTab.Controls.Add(webBrowser1)

关于WebBrowser控件，再续，夜深了，程序员也得睡觉