To implement dynamic assignment by control instance name and its property name

Dynamic | Controls ' implement dynamic assignment by control instance name and its property name

' Entry parameter: class instance where the Classinstance control is located

' ControlName control instance name, case-sensitive

' PropertyName to set the value of the control property name, case-sensitive (in fact, here can not be case-sensitive, but in order to form a habit, I ask myself)

' Value, the type is an object, which should be noted.

' Exit parameter: True reset succeeded, false unsuccessful

' Requires imports System.Reflection and 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 ' Returns the value. Although the default is flase, but I still like to set it, mainly to look at the clear

' Below I don't comment

Dim MyType as Type = Classinstance.gettype

Dim Myfieldinfo as FieldInfo = Mytype.getfield ("_" & ControlName, BindingFlags.NonPublic Or _

BindingFlags.Instance Or bindingflags.public) ' Plus ' _ ' This is a special matter.



If not myfieldinfo are nothing Then

Dim properties as PropertyDescriptorCollection = Typedescriptor.getproperties (MyType)

Dim MyProperty as PropertyDescriptor = properties. Find (PropertyName, False) ' Set to true here is not case-sensitive



If not MyProperty are nothing Then

Dim Ctr as Object

CTR = Myfieldinfo.getvalue (classinstance) ' Gets control instance

Try

Myproperty.setvalue (CTR, Value)

result = True

Catch ex as Exception

MsgBox (ex. Message)

End Try

End If

End If



return result

End Function



' Test

Private Sub Test ()

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

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

Dim frm as New Form2

Setvaluecontrolproperty (frm, "MyTextBox", "Text", "should be OK?")

frm. Show ()

End Sub