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

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

共有3571人关注过本帖树形打印复制链接主题：用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小白，请诸位大神帮帮忙了。。

RLCN2

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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中的控件，但如何能取得控件的类型？