vb.net 教程 3-8 窗体编程 容器 2 TabControl 3
发布时间:2020-12-16 23:53:01 所属栏目:大数据 来源:网络整理
导读:本节看看如何用代码增、删选项卡等操作。 增加选项卡: Private Sub Button2_Click(sender As Object,e As EventArgs) Handles Button2.Click Dim tabpagename As String tabpagename = InputBox("输入选项卡名称") Dim newtabpage As New TabPage() newtabp
本节看看如何用代码增、删选项卡等操作。 增加选项卡: Private Sub Button2_Click(sender As Object,e As EventArgs) Handles Button2.Click Dim tabpagename As String tabpagename = InputBox("输入选项卡名称") Dim newtabpage As New TabPage() newtabpage.Text = tabpagename newtabpage.ImageIndex = 1 TabControl1.TabPages.Add(newtabpage) End Sub 在当前选择的选项卡前面插入新的选项卡: Private Sub Button6_Click(sender As Object,e As EventArgs) Handles Button6.Click Dim tabpagename As String tabpagename = InputBox("输入选项卡名称") Dim newtabpage As New TabPage() newtabpage.Text = tabpagename newtabpage.ImageIndex = 0 TabControl1.TabPages.Insert(TabControl1.SelectedIndex,newtabpage) End Sub删除当前选择的选项卡: Private Sub Button3_Click(sender As Object,e As EventArgs) Handles Button3.Click TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex) End Sub 清除所有选项卡: Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.Click TabControl1.TabPages.Clear() End Sub 在当前选项卡上增加控件: Private Sub Button5_Click(sender As Object,e As EventArgs) Handles Button5.Click Dim currenttabpage As New TabPage currenttabpage = TabControl1.SelectedTab Dim btnControl As New Button btnControl.Left = 100 btnControl.Top = 50 btnControl.Text = "按钮" & TabControl1.SelectedIndex currenttabpage.Controls.Add(btnControl) End Sub 设置选中的选项卡: Private Sub Button7_Click(sender As Object,e As EventArgs) Handles Button7.Click TabControl1.SelectedIndex = 0 ‘选项卡索引,从0开始 End Sub
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看vb.net 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |