如下代码
Dim tab1 As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim tab2 As WinForm.TabControl = e.Form.Controls("TabControl2")
If e.Node.Level = 2 Then
tab1.SelectedPage = tab1.TabPages(e.Node.FullPath.Split("\")(2))
Else If e.Node.Level = 3 Then
tab1.SelectedPage = tab1.TabPages(e.Node.FullPath.Split("\")(2))
tab2.SelectedPage = tab2.TabPages(e.Node.FullPath.Split("\")(3))
End If