[求助]获取属性和控件类型 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取属性和控件类型

共有2263人关注过本帖树形打印复制链接主题：[求助]获取属性和控件类型

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]获取属性和控件类型 发帖心情

Post By：2017/6/21 15:17:00 [只看该作者]

老师，

怎么获取这些设置呢

Dim o = e.Form

DataTables("表B").DataRows.Clear

For Each c As object In o.Gettype.getproperties

Dim dr As DataRow=DataTables("表B").AddNew()

DR("控件名")=c.‘这块怎么写能导出控件名

DR("类型")=c.‘这块怎么写能导出控件类型

DR("属性")=c.name

[此贴子已经被作者于2017/6/21 15:20:29编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/21 15:26:00 [只看该作者]

导出窗口所有控件的所有属性？

Dim frm As WinForm.Form = Forms("窗口1")
For Each c As object In frm.controls
    For Each o As object In c.Gettype.getproperties
        output.show(c.name & " " & c.Gettype.name & " " & o.name)
    Next
Next

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/21 16:27:00 [只看该作者]

老师‘

能获其对应取值吗

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/21 16:37:00 [只看该作者]

Dim frm As WinForm.Form = Forms("窗口1")
For Each c As object In frm.controls
    For Each o As object In c.Gettype.getproperties
        Dim val = o.getvalue(c, Nothing)
        If val Is Nothing Then
            output.show(c.name & " " & c.Gettype.name & " " & o.name)
        Else
            output.show(c.name & " " & c.Gettype.name & " " & o.name & " " & val.Tostring)
        End If
    Next
Next

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/28 13:44:00 [只看该作者]

老师，

可以部分获得控件的值，好像有些属性不能获得，为什么呢？

.NET Framework 版本：2.0.50727.3053

Foxtable 版本：2017.6.12.1

错误所在事件：窗口,窗口1,Button2,Click

详细错误信息：

未找到 Property Get 方法。

能否取得值后，在根据表直接生成窗口呢，代码怎么写呢。

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/28 14:06:00 [只看该作者]

批量生成代码

'Dim kjmcs As List(Of String)=DataTables("表B").GetValues("控件名称")

'For Each kjmc As String In kjmcs

'Dim dr2 As DataRow=DataTables("表B").Find("控件名称='" & kjmc &"'")

'Dim drs As List(Of DataRow)=DataTables("表B").Select("控件名称='" & kjmc &"'")

'If DR2 IsNot Nothing Then

'If DRS IsNot Nothing Then

'Dim STR As String="WinForm." & dr2("控件类型")

'Dim STR2 As String="ControlTypeEnum." & dr2("控件类型")

'Dim TJKJ As STR =E.Form.CreateControl(dr("控件名称"),str2)'这块有问题

'For Each dr As DataRow In DRS

'TJKJ & "." & dr("属性")=dr("属性值")

'Next

'e.Form.AddControl(TJKJ)

'End If

'Next

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/28 14:07:00 [只看该作者]

例子如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动生成成控件.foxdb

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/28 15:05:00 [只看该作者]

生成

on error resume Next
DataTables("表B").DataRows.Clear
Dim frm As WinForm.Form = e.Form
For Each c As object In frm.controls
    For Each o As object In c.Gettype.getproperties
        Dim dr As DataRow=DataTables("表B").AddNew()
        Dim val = o.getvalue(c, Nothing)
        If val Is Nothing Then
            dr("控件类型")=(c.Gettype.name)
            dr("控件名称")=(c.name )
            dr("属性")=(o.name)
        Else
            dr("控件类型")=(c.Gettype.name)
            dr("控件名称")=(c.name )
            dr("属性")=(o.name)
            dr("属性值")=(val.Tostring)
        End If
    Next
Next