Foxtable(狐表)用户栏目专家坐堂 → 获取所有窗口名 和窗口管理中的根目录和子目录


  共有4512人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
获取所有窗口名 和窗口管理中的根目录和子目录  发帖心情 Post By:2014/11/22 20:48:00 [显示全部帖子]

For Each frm As WinForm.Form In Forms
    output.show(frm.name)
Next

上述代码在命令窗口中可以实现所有窗口名称的获取

 

但是采用文本或者列表框就怎么也显示不出所有的窗口名称 求解

 

 

如何获取窗口管理中的根目录和子目录呢?

[此贴子已经被作者于2014-11-22 21:43:50编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(czy)试一下组合框的Enter事件代码Dim name A...  发帖心情 Post By:2014/11/22 21:31:00 [显示全部帖子]

组合框可行 有点纠结的是为什么其他控件就是不能实现呢?

 


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)以下是引用李孝春在2014-11-22 21:31...  发帖心情 Post By:2014/11/23 11:06:00 [显示全部帖子]

呵呵 有点甜老师  怎么获取窗口管理里面的那窗口根目录和子目录名称呢?

 


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)以下是引用李孝春在2014-11-23 11:06...  发帖心情 Post By:2014/11/23 11:20:00 [显示全部帖子]

呵呵 有没有其他变通的办法呢?

 

假设窗口管理器中有如下结构

 

系统窗体

     系统菜单

         菜单设计

 

我想的这个结构来自动生成系统目录树菜单


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 没办法获取  发帖心情 Post By:2014/11/23 11:28:00 [显示全部帖子]

好的  谢谢有点甜老师  


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 你可以在计划管理加入代码&n...  发帖心情 Post By:2014/11/23 11:57:00 [显示全部帖子]

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

 

  


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141123115544.jpg
图片点击可在新窗口打开查看
 

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)Dim frm As Object = Windows.Forms....  发帖心情 Post By:2014/11/23 12:07:00 [显示全部帖子]

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

 

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

 

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 加入 结果还是没有值


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 这种,只能在设计阶段获取的。...  发帖心情 Post By:2014/11/23 14:40:00 [显示全部帖子]

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 在计划管理那里,定时执行才可...  发帖心情 Post By:2014/11/23 15:27:00 [显示全部帖子]

运行报错

 


图片点击可在新窗口打开查看此主题相关图片如下:错误代码1.gif
图片点击可在新窗口打开查看

 

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

 

 


图片点击可在新窗口打开查看此主题相关图片如下:收文登记下面的表不显示了!.gif
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:涉密信息系统管理1123.zip


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)2、打开后,只能剪切一次,要么用多个...  发帖心情 Post By:2014/11/23 16:09:00 [显示全部帖子]

问题2  现在对应的0.1节点双击后是空白了  我要想在对应的节点下打开对应的窗体是不是又要重新创建对应的窗体名称对应呢?


 回到顶部
总数 20 1 2 下一页