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

 

如果是文本框，你希望它怎么显示？它又没有下拉

 

获取不了的。

 没办法获取

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

 

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

 

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

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

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

 

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

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

 问题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

 回复21楼，关键是你要看懂代码啊，适当调整一下关闭窗口代码的位置啊