共14 条记录, 每页显示 10 条, 页签: [1] [2]

标题：老大请进，遍历控件问题，为何报错？

1楼

唐尸三摆手 发表于：2011/6/30 8:07:00

老大，帮我看下，下面这段遍历代码报错。

For Each f As WinForm.Form In Forms
    For Each fc As WinForm.Control In f.Controls
        If Typeof fc Is WinForm.Button Then
            Dim fct As WinForm.Button = fc
            output.show(fct.name)
        End If
    Next
Next

貌似语法上没什么问题呀

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

2楼

狐狸爸爸 发表于：2011/6/30 8:12:00

看不出问题，做个简单例子上来看看

3楼

baoxyang 发表于：2011/6/30 8:37:00

以下是引用唐尸三摆手在2011-6-30 8:07:00的发言：

老大，帮我看下，下面这段遍历代码报错。

貌似语法上没什么问题呀

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

Dim fct As WinForm.Button = fc '这句有问题吧，应当去掉这句。

[此贴子已经被作者于2011-6-30 8:39:00编辑过]

4楼

狐狸爸爸 发表于：2011/6/30 8:41:00

For Each f As WinForm.Form In Forms
    If f.Opened Then
        For Each fc As WinForm.Control In f.Controls
            If Typeof fc Is WinForm.Button Then
                Dim fct As WinForm.Button = fc
                output.show(fct.name)
            End If
        Next
    End If
Next

5楼

唐尸三摆手 发表于：2011/6/30 8:49:00

必须打开的窗口才可以遍历控件吗

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

遍历项目中的所有窗口就没有问题，这时候窗口并不都是打开的呀

6楼

狐狸爸爸 发表于：2011/6/30 8:50:00

窗口不打开，窗口就没有生成，也就是窗口本身就不存在，谈什么遍历其中的控件啊

7楼

唐尸三摆手 发表于：2011/6/30 9:00:00

有没有其他方法，比如我想实现将所有窗口的控件进行权限分配，所以要遍历窗口控件，有没有一次性向表中增加这些控件的方法，只是不想一个一个录入罢了。

8楼

狐狸爸爸 发表于：2011/6/30 9:01:00

没有办法，只能在窗口的AfterOpenProject事件设置代码

9楼

唐尸三摆手 发表于：2011/6/30 9:10:00

老大请看附件，能否一次性向表C 中添加关于窗口F01的数据信息,然后由F01窗口调用？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目35.foxdb

[此贴子已经被作者于2011-6-30 9:56:54编辑过]

10楼

狐狸爸爸 发表于：2011/6/30 11:21:00

没有办法一次性，只能逐个窗口设置AfterLoad事件

共14 条记录, 每页显示 10 条, 页签: [1] [2]