领先技术: 子类化和重写ASP.NET页面 - 第II部分

发现学生们特别喜欢用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

Sub btRight_Click() Sub btRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRight.Click
　　　　Dim selectedIndex As Integer = TabControl1.SelectedIndex
　　　　If (selectedIndex = TabControl1.TabPages.Count - 1) Then
　　　　　　　　Return ''如果是最后一页，就不需要向右移动了
　　　　Else

　　　　　　　　TabControl1.TabPages.Remove(selectedTab)
　　　　　　　　TabControl1.TabPages.Insert(selectedIndex + 1, selectedTab) ''添加到后一个位置
　　　　End If
End Sub

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!