System.Windows.Forms.TabControl控件的示例

发现学生们特别喜欢用TabControl控件，问过之后才知道，原来他们觉得这个控件看上去比较酷，难怪现在标签式浏览器这么受欢迎。既然喜欢，咱就投其所好，赶紧做了一点教学示例。

这里演示了TabControl的常用事件：SelectedIndexChanged

Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
　　　　　　　　lbMessage.Text = "当前显示的是第" & (TabControl1.SelectedIndex + 1) & "页"
End Sub

用编程的方式添加新页

Sub btAdd_Click() Sub btAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAdd.Click
　　　　TabControl1.TabPages.Add(New TabPage("新页"))
End Sub

用编程的方式删除选中的页

Sub btDel_Click() Sub btDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDel.Click
　　　　TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
End Sub

向前移动某一页

Sub btLeft_Click() Sub btLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLeft.Click
　　　　Dim selectedIndex As Integer = TabControl1.SelectedIndex
　　　　If (selectedIndex = 0) Then
　　　　　　　　Return '如果是第一页，就不需要向左移动了
　　　　Else
　　　　　　　　Dim selectedTab As TabPage = TabControl1.SelectedTab　　　　'暂存选中的TabPage
　　　　　　　　TabControl1.TabPages.Remove(selectedTab)　　　　　　　　　　　　　　　　'从现在的位置移除
　　　　　　　　TabControl1.TabPages.Insert(selectedIndex - 1, selectedTab) '添加到前一个位置（前面的那个TabPage会自动向后移动）
　　　　End If
End Sub

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索selectedindexchange
， tabcontrol
， tabpage
， system
， sub
， tabcontrol 添加页
， wpfc#tabcontrol
， listview动态添加tabpage
， tabPage页背景透明
， #tabcontrol左侧显示
， tabcontrol标签页溢出
ByVal
system.windows.forms、tabcontrol、c tabcontrol、wpf tabcontrol 样式、c tabcontrol 美化，以便于您获取更多的相关知识。