按控件实例名称及其属性名称实现动态赋值

'按控件实例名称及其属性名称实现动态赋值

'入口参数:ClassInstance 控件所在的类实例

' ControlName 控件实例名称,区分大小写

' PropertyName 要设值的控件属性名称,区分大小写(其实这里可以不必区分大小写的,只是为了养成习惯,我这样要求自己的)

' Value 新值,类型是一个Object,这倒是要注意的

'出口参数: True则重设成功，False不成功

'需要 Imports System.Reflection和Imports System.ComponentModel

Public Function SetValueControlProperty(ByVal ClassInstance As Object, ByVal ControlName As String, ByVal PropertyName As String, ByVal Value As Object) As Boolean

Dim Result As Boolean = False '返回值。虽然默认是Flase,但我还是喜欢这样设它，主要是看着明了

'下面我不注释了

Dim myType As Type = ClassInstance.GetType

Dim myFieldInfo As FieldInfo = myType.GetField("_" & ControlName, BindingFlags.NonPublic Or _

BindingFlags.Instance Or BindingFlags.Public) '加"_"这个是特要紧的



If Not myFieldInfo Is Nothing Then

Dim properties As PropertyDescriptorCollection = TypeDescriptor.GetProperties(myType)

Dim myProperty As PropertyDescriptor = properties.Find(PropertyName, False) '这里设为True就不用区分大小写了



If Not myProperty Is Nothing Then

Dim ctr As Object

ctr = myFieldInfo.GetValue(ClassInstance) '取得控件实例

Try

myProperty.SetValue(ctr, Value)

Result = True

Catch ex As Exception

MsgBox(ex.Message)

End Try

End If

End If



Return Result

End Function



'测试

Private Sub Test()

SetValueControlProperty(Me, "Button1", "Text", "Hello")

SetValueControlProperty(Me, "Button2", "Visible", False)

Dim frm As New Form2

SetValueControlProperty(frm, "MyTextBox", "Text", "应该还行吧?")

frm.Show()

End Sub