[求助] 如何得到控件的名称？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 如何得到控件的名称？

共有5356人关注过本帖树形打印复制链接主题：[求助] 如何得到控件的名称？

longtechwj

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

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：2013/9/26 15:32:00 [显示全部帖子]

For Each c As Winform.Control In Forms(Cstr(args(0))).Controls(Cstr(args(1))).Children
If(Cstr(c.Gettype().Name)="TextBox" Or Cstr(c.Gettype().Name)="ComboBox" Or Cstr(c.Gettype().Name)="NumericComboBox" Or Cstr(c.Gettype().Name)="CheckBox" Or Cstr(c.Gettype().Name)="DateTimePicker") Then
c.Enabled=args(2)
End If
Next

longtechwj

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

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：2013/9/26 15:41:00 [显示全部帖子]

For Each c As Winform.Control In Forms(Cstr(args(0))).Controls(Cstr(args(1))).Children
    c.Enabled=args(2)
    If(Cstr(c.Name)="Save" Or Cstr(c.Name)="Cancel") Then
    If(args(2)=True) Then
    c.Enabled= False
    Else
    c.Enabled= True
    End If
    End If
Next

longtechwj

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

加好友

发短信

等级：三尾狐帖子：659 积分：4686 威望：0 精华：0 注册：2013/6/11 17:51:00

Post By：2013/9/26 18:13:00 [显示全部帖子]

我有写这样的函数，清空指定的控件内容

Dim i As Integer
For i=0 To Tables(Cstr(args(0))).Cols.Count-1
If(Tables(Cstr(args(0))).Cols(i).Name=Cstr(args(1))) Then
Forms(Cstr(args(2))).Controls(Tables(Cstr(args(0))).Cols(i).Name).Checked=False
Else
Forms(Cstr(args(2))).Controls(Tables(Cstr(args(0))).Cols(i).Name).Value=Nothing
End If
Next

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

主题：[求助] 如何得到控件的名称？