获得一个命名空间中所有的类等,并给类属性付值。
2005-08-23 17:57
330 查看
以下只是获得命名空间中的类, If t.IsClass Then
其他的你可以判断, If t.IsValueType Then结构, If t.IsInterface接口
把这个命名空间中的类实例化:a.CreateInstance(t.FullName)
同样你可以根据这个类,取得它其中有的属性System.ComponentModel.TypeDescriptor.GetProperties(t)
也可以给属性付值,也可以获得事件:System.ComponentModel.TypeDescriptor.GetEvents(t),
其他的看看MSDN就知道了。
以下只作为参考:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As DataTable
dt = GetClassName("webcontrol")
For i As Integer = 0 To dt.Rows.Count - 1
If dt.Rows(i)(0).ToString.ToLower = "textbox" Then
Call SetClassPropertyValue(dt.Rows(i)(2), "text", "123")
End If
Next
End Sub
Private Function GetClassName(ByVal namespacestr As String) As DataTable
Dim a As System.Reflection.Assembly
Dim t As Type
Dim dt As DataTable
Dim dr As DataRow
dt = New DataTable
dt.Columns.Add(New DataColumn("ClassName"))
dt.Columns.Add(New DataColumn("ClassFullName"))
dt.Columns.Add(New DataColumn("InstanceClass"))
a = System.Reflection.Assembly.Load(namespacestr)
For Each t In a.GetExportedTypes
If t.IsClass Then
dr = dt.NewRow
dr("ClassName") = t.Name
dr("ClassFullName") = t.FullName
dr("InstanceClass") = a.CreateInstance(t.FullName)
dt.Rows.Add(dr)
dt.AcceptChanges()
End If
Next
Return dt
End Function
Private Sub SetClassPropertyValue(ByVal t As Type, ByVal propertyStr As String, ByVal value As String)
Dim cc As System.Web.UI.ControlCollection
Dim pd As System.ComponentModel.PropertyDescriptor
Dim pdc As System.ComponentModel.PropertyDescriptorCollection
pdc = System.ComponentModel.TypeDescriptor.GetProperties(t)
pd = pdc.Find(propertyStr, False)
pd.SetValue(t, value)
End Sub
其他的你可以判断, If t.IsValueType Then结构, If t.IsInterface接口
把这个命名空间中的类实例化:a.CreateInstance(t.FullName)
同样你可以根据这个类,取得它其中有的属性System.ComponentModel.TypeDescriptor.GetProperties(t)
也可以给属性付值,也可以获得事件:System.ComponentModel.TypeDescriptor.GetEvents(t),
其他的看看MSDN就知道了。
以下只作为参考:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As DataTable
dt = GetClassName("webcontrol")
For i As Integer = 0 To dt.Rows.Count - 1
If dt.Rows(i)(0).ToString.ToLower = "textbox" Then
Call SetClassPropertyValue(dt.Rows(i)(2), "text", "123")
End If
Next
End Sub
Private Function GetClassName(ByVal namespacestr As String) As DataTable
Dim a As System.Reflection.Assembly
Dim t As Type
Dim dt As DataTable
Dim dr As DataRow
dt = New DataTable
dt.Columns.Add(New DataColumn("ClassName"))
dt.Columns.Add(New DataColumn("ClassFullName"))
dt.Columns.Add(New DataColumn("InstanceClass"))
a = System.Reflection.Assembly.Load(namespacestr)
For Each t In a.GetExportedTypes
If t.IsClass Then
dr = dt.NewRow
dr("ClassName") = t.Name
dr("ClassFullName") = t.FullName
dr("InstanceClass") = a.CreateInstance(t.FullName)
dt.Rows.Add(dr)
dt.AcceptChanges()
End If
Next
Return dt
End Function
Private Sub SetClassPropertyValue(ByVal t As Type, ByVal propertyStr As String, ByVal value As String)
Dim cc As System.Web.UI.ControlCollection
Dim pd As System.ComponentModel.PropertyDescriptor
Dim pdc As System.ComponentModel.PropertyDescriptorCollection
pdc = System.ComponentModel.TypeDescriptor.GetProperties(t)
pd = pdc.Find(propertyStr, False)
pd.SetValue(t, value)
End Sub
相关文章推荐
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- C#控制台基础 assembly与fullname获取一个dll中所有的命名空间
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- C# 利用反射,遍历获得一个类的所有属性名,方法名,成员名.
- 怎样获得一个HTML标记的所有属性和属性值
- JS获得一个对象的所有属性和方法
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- C# 利用反射,遍历获得一个类的所有属性名,方法名,成员名
- JS获得一个对象的所有属性和方法实例
- JS获得一个对象的所有属性和方法
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- JS获得一个对象的所有属性和方法
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- 获得一个类的所有属性
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值
- JS获得一个对象的所有属性和方法
- C#利用反射,遍历获得一个类的所有属性名,以及该类的实例的所有属性的值