主题：求助：新建一窗体，放置面板1，另建一窗体 如何在主窗体启动的时候自动在面板1加载子窗体呢？

逛逛老师 这个代码加入判断之后是不会死机了

有点甜老师 按照关闭计划任务代码 程序运行之初没有问题 但是运行一下后会程序死机 不能操作  但是不影响电脑操作其他程序

 1、因为你是在调试阶段，计时器的时间间隔调大一些；

 

 2、在timertick事件，一进入，就设置关闭。

有点甜老师  下面的代码是在任务栏上启用的

如果目录树该怎么变换呢？也是对应的节点目录下 点击后打开对应的节点名字的窗体显示

Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
Dim Name As String = e.Link.Name
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms(Name).BaseForm)

 

 

 

下面是我采用目录树对应节点打开对应名称页签的代码

Select Case e.Node.Level
    Case 2
        For i As Integer = 0 To e.Form.Controls("TabControl1").TabPages.Count -1
            If e.Form.Controls("TabControl1").TabPages(i).Text = e.Node.Name Then
                e.Form.Controls("TabControl1").SelectedIndex = i
            End If
        Next
    Case 3
        For i As Integer = 0 To e.Form.Controls("TabControl2").TabPages.Count -1
            If e.Form.Controls("TabControl2").TabPages(i).Text = e.Node.Name Then
                e.Form.Controls("TabControl2").SelectedIndex = i
            End If
        Next
End Select

 

求变通 谢谢！

已用如下代码解决  求更加高效的代码  谢谢

Select Case e.Node.Level
    Case 2
        Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
        Dim Name As String = e.Node.Name
        Forms(Name).OPEN(-1000,-1500)
        Forms(Name).BaseForm.TopLevel = False
        Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
       
        PB.BaseControl.Controls.Clear
        PB.BaseControl.Controls.add(Forms(Name).BaseForm)
       
    Case 3
        Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
        Dim Name As String = e.Node.Name
        Forms(Name).OPEN(-1000,-1500)
        Forms(Name).BaseForm.TopLevel = False
        Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
       
        PB.BaseControl.Controls.Clear
        PB.BaseControl.Controls.add(Forms(Name).BaseForm)
       
End Select