[初学VB.net]如何通过控件的名称来控制控件

Imports System.Reflection

Dim i As Integer

Dim namestr As String

For i = 0 To dataset_system.Tables("Company").Columns.Count - 1

namestr = ""

namestr = "Txt_Company_" & dataset_system.Tables("Company").Columns.Item(i).Caption

Dim t As Type = Me.GetType

Dim f As FieldInfo = t.GetField("_" & namestr, BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.Public)

If dataset_system.Tables("Company").Columns.Item(i).Caption = "国际社" Then

Dim MyControl As CheckBox = CType(f.GetValue(Me), CheckBox)

MyControl.Enabled = chg

Else

Dim MyControl As TextBox = CType(f.GetValue(Me), TextBox)

MyControl.Enabled = chg

End If

Next

---------------------------------------------------------------------------------FieldInfo 概述

获取与此字段关联的特性。

获取声明该成员的类。

获取 RuntimeFieldHandle，它是字段的内部元数据表示形式的句柄。

获取此字段对象的类型。

获取一个值，通过该值指示该字段是否有程序集级可见性。

获取一个值，通过该值指示此字段是否有家族级可见性。

获取一个值，通过该值指示此字段是否有 FamilyAndAssembly 级可见性。

获取一个值，通过该值指示此字段是否有 FamilyOrAssembly 级可见性。

获取一个值，通过该值指示此字段是否只能在构造函数的主体中设置。

获取一个值，通过该值指示该值是否在编译时写入并且不能更改。

获取一个值，通过该值指示此字段是否有 NotSerialized 特性。

获取一个值，通过该值指示是否在 FieldAttributes 中设置相应的 PinvokeImpl 特性。

获取一个值，通过该值指示此字段是否为私有字段。

获取一个值，通过该值指示此字段是否为公共字段。

获取一个值，通过该值指示是否在 FieldAttributes 枚举数中设置相应的 SpecialName 特性。

获取一个值，通过该值指示此字段是否为静态字段。

已重写。获取此 FieldInfo 对象反映的属性的 Type。检索值指示该成员是一个字段。

获取此成员的名称。

获取用于获取 MemberInfo 的此实例的类对象。