主题：获取所有窗口名 和窗口管理中的根目录和子目录

 你可以在计划管理加入代码

 

MyTimers("计划1").Enabled = False
Dim frm As Object = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.text = "窗口管理" Then
        Dim trv As Object = frm.controls("TreeView1")
        For Each nd As object In trv.Nodes
            output.show(nd.Text)
        Next
    End If
End If

 

 然后，打开窗口管理，获取对应值，代码自己变通一下

新建一窗体名字为窗口管理  后代码在计划管理中和按钮事件中以及命令窗口中都显示没有值

 

  

此主题相关图片如下：qq图片20141123115544.jpg

 

Dim frm As Object = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.text = "窗口管理" Then
        Dim trv As Object = frm.controls("TreeView1")
        For Each nd As object In trv.Nodes
            output.show(nd.Text)
        Next
    End If
End If

没有操作经验 还得有点甜老师多多指导

 

那红色部分代码怎么修改呢？

 

Dim frm As Object = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.text = "窗口管理" Then
        Dim trv As Object = frm.controls("TreeView1")
        For Each nd As object In trv.Nodes
            output.show(nd.Text)
        Next
    End If
End If

 

我用WinForm.Form 加入 结果还是没有值

 这种，只能在设计阶段获取的。

 

 直接打开窗口管理，就能出现。

那在设计中命令窗口中执行也得不到值哦 好纠结的一个问题

或许确实是我吧问题想极端了吧

 在计划管理那里，定时执行才可以的。

运行报错

 

此主题相关图片如下：错误代码1.gif

 

另外求指导一下 文件登记中下的表为什么第一次打开会显示 运行其他节点后 再次返回来就不显示了呢？

 

 

此主题相关图片如下：收文登记下面的表不显示了！.gif

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:涉密信息系统管理1123.zip

 问题1：获取目录只能在设计阶段，用于辅助的啊，不能作为一种功能啊。

 

计划任务：

MyTimers("计划1").Enabled = False
Dim frm As Object = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.text = "窗口管理" Then
        Dim trv As Object = frm.controls("TreeView1")
        For Each nd As object In trv.Nodes
            output.Show(nd.Text)
            Functions.Execute("递归", nd)
        Next
    End If
End If

 

 

内部函数：

Dim pnd As object = args(0)
For Each nd As object In pnd.Nodes
    output.Show(pnd.Text & "->" & nd.Text)
    Functions.Execute("递归", nd)
Next

 

 

触发：

MyTimers("计划1").Enabled = True
Syscmd.Project.FormDesigner()

2、打开后，只能剪切一次，要么用多个控件，要么，打开之前，先关闭

 

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:涉密信息系统管理.foxdb