If e.Node.Level = 1 Then
Dim t As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim p = t.TabPages(e.Node.Text)
If p IsNot Nothing Then
'Dim i = t.SelectedIndex(p)
't.tabpages(i).Visible = True
p.visible = True
t.SelectedPage = p
't.Visible = True
Return
End If
'Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
'tab.tabpages(1).Visible = True
p = t.TabPages.Add(e.Node.Text ,e.Node.Text)
Forms(e.Node.Text).OPEN(-1000,-1500)
Forms(e.Node.Text).baseform.Dock = System.Windows
加好友 
发短信
Post By：2020/2/26 14:31:00 [只看该作者]
