环境:vb2010 有2个窗体 分别为form1 form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'//定义变量,记录窗体是否已经打开
Dim ls_open As Boolean = False
'//遍历TabPage页,查看页面是否已经打开
For Each a As TabPage In TabControl1.TabPages
If a.Name = "Tab_form2" Then
ls_open = True '如果查找到指定的页面
Me.TabControl1.SelectedTab = a '设置选中当前页
End If
Next
'//如果窗体没有打开,那么实例化并打开窗体
If ls_open = False Then
Dim NewTabPage1 As New TabPage '//实例化一个tabpage页
NewTabPage1.Text = "form2窗体" '//在tabpage页显示的页text内容
NewTabPage1.Name = "Tab