Foxtable(狐表)用户栏目专家坐堂 → [求助]遍历窗口控件


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

主题:[求助]遍历窗口控件

帅哥哟,离线,有人找我吗?
苏州老街
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
[求助]遍历窗口控件  发帖心情 Post By:2017/1/15 9:21:00 [显示全部帖子]

老师,我希望在窗口1中的目录树遍历所有窗口和窗口控件后赋值给窗口表
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:集合窗口控件.table



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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 11:46:00 [显示全部帖子]

谢谢老师,控件边上能显示该控件的标题吗?

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 13:35:00 [显示全部帖子]

老师,在遍历控件时能否让窗口不打开或很快。

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 14:44:00 [显示全部帖子]

老师,是把所有的控件赋值给表格,控件生成的目录树赋值不了授权表啊,老师有要烦你了。

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 17:17:00 [显示全部帖子]

老师,我明年慢慢学,这次麻烦老师帮忙。谢谢,

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 17:57:00 [显示全部帖子]

以下是引用有点色在2017/1/15 17:31:00的发言:

If e.Node.Level = 0 Then
    Tables("授权表").current("窗口名") = e.Node.Name
ElseIf e.Node.Level >= 1 Then
    Tables("授权表").current("窗口名") = e.Node.ParentNode.Name
    Tables("授权表").current("控件名") = e.Node.Name
End If



老师,我要把目录树中的名称和标题分别赋值,按钮名称对应按钮名称、标题对应用户按钮标题。多谢了。

[此贴子已经被作者于2017/1/15 18:19:31编辑过]

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 21:10:00 [显示全部帖子]

以下是引用有点色在2017/1/15 18:40:00的发言:

If e.Node.Level = 0 Then
    Tables("授权表").current("窗口名") = e.Node.Name
ElseIf e.Node.Level >= 1 Then
    Tables("授权表").current("窗口名") = e.Node.ParentNode.Name
    Tables("授权表").current("名称") = e.Node.Name
    Dim ary() As String = e.node.text.split("|")
    If ary.length = 2 Then
        Tables("授权表").current("标题") = ary(1)
    End If
End If



im tv As WinForm.TreeView = Args(0)

tv.Nodes.Clear

Dim nd As WinForm.TreeNode
Dim name As String
Dim sname() As String

For Each f As WinForm.Form In Forms
    name = f.Category
    sname = name.Split("\")
    Dim frmnd As WinForm.TreeNode
    If sname.Length = 1 AndAlso sname(0) = "" Then
        frmnd = tv.Nodes.Add(f.name)
    Else
        If tv.Nodes.Contains(sname(0)) = False Then
            nd = tv.Nodes.Add(sname(0))
        Else
            nd = tv.Nodes(sname(0))
        End If
        For i As Integer = 1 To sname.Length - 1
            If nd.Nodes.Contains(sname(i)) = False Then
                nd = nd.Nodes.Add(sname(i))
            Else
                nd = nd.Nodes(sname(i))
            End If
        Next
        frmnd = nd.Nodes.Add(f.name)
    End If
    Dim opened = f.Opened
    f.Open
    For Each c As object In f.controls
        try
            frmnd.Nodes.Add(c.name, c.name & " | " & c.Text)
        catch ex As exception
            frmnd.Nodes.Add(c.name)
        End try
    Next
    If opened = False Then f.Close
Next

老师,顶上代码不能执行下面内部函数。

[此贴子已经被作者于2017/1/15 21:10:02编辑过]

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/15 21:33:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/16 15:11:00 [显示全部帖子]


老师,是下面代码中的列名超出范围,表中的列删除了在代码中没有删除。
Tables("授权表_Table1").SetColVisibleWidth("

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


加好友 发短信
等级:三尾狐 帖子:644 积分:4130 威望:0 精华:0 注册:2016/10/19 16:45:00
  发帖心情 Post By:2017/1/16 16:03:00 [显示全部帖子]

老师,我要在列表框中集合项目所有表进行选择性勾选,通过确定按钮把勾选的表进行初始化。

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