公司需要开发一个内部用的产品服务系统,我在想权限管理的功能模块列表怎么方便获取,要求能随程序的修改而自行变化.然后在网上看到了通过反射获取类成员的方式,可以用于这种情况.
#Region "获取窗体所有控件"
'获取所有成员
Dim tmpControl As New MDIParentMain
Dim tmpType As Type = tmpControl.GetType
Dim tmpFields As Reflection.FieldInfo() = tmpType.GetFields(System.Reflection.BindingFlags.NonPublic Or
System.Reflection.BindingFlags.Instance)
Debug.WriteLine(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
For Each i001 As Reflection.FieldInfo In tmpFields
If i001.FieldType Is GetType(Button) OrElse
i001.FieldType Is GetType(RadioButton) Then
'获取对应control name的text
Dim tmpObj As Object = tmpType.GetField(i001.Name,