用for each 遍历了forms中的控件，但如何能取得控件的类型？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用for each 遍历了forms中的控件，但如何能取得控件的类型？

共有3569人关注过本帖树形打印复制链接主题：用for each 遍历了forms中的控件，但如何能取得控件的类型？

RLCN2

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：12 积分：404 威望：0 精华：0 注册：2018/5/28 16:49:00

用for each 遍历了forms中的控件，但如何能取得控件的类型？ 发帖心情

Post By：2019/7/29 17:16:00 [只看该作者]

主要是需要对每一个有text属性的text内容作动态设定

For Each fff As WinForm.Form In Forms

If Forms(fff.Name).Opened Then

output.show(fff.Name)

For Each ccc As WinForm.Control In forms(fff.name).Controls

output.show("controls: " & ccc.Name & " | " )

End If

如此可以查所有的 controls名称，

但是无法得知这些control 是否有 text属性，

急待解决，

在下是 foxtable小白，请诸位大神帮帮忙了。。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111690 积分：568580 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/29 17:22:00 [只看该作者]

1、判断类型只能这样：http://www.foxtable.com/webhelp/topics/1849.htm

2、可以利用控件名称，比如文本框：txt_xxxx1、txt_xxxx2，组合框：cbo_xxxx，然后通过控件名称判断是什么控件

RLCN2

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：12 积分：404 威望：0 精华：0 注册：2018/5/28 16:49:00

Post By：2019/7/29 17:35:00 [只看该作者]

了解。

这样多判断几次也能用的，感谢大神。

For Each fff As WinForm.Form In Forms

If Forms(fff.Name).Opened Then

output.show(fff.Name)

For Each ccc As WinForm.Control In forms(fff.name).Controls

'If Typeof ccc Is WinForm.TextBox Then '判断控件是否是文本框

If Typeof ccc Is WinForm.Label Then '判断控件是否是标签

'Dim t As WinForm.TextBox = ccc '使用特定类型的变量引用控件

Dim t As WinForm.Label = ccc '使用特定类型的变量引用控件

't.Value = Nothing

output.show("controls: " & ccc.Name & " | " & t.text )

End If

下一主题 >> << 上一主题

主题：用for each 遍历了forms中的控件，但如何能取得控件的类型？