在vb.net中使用其名称访问属性

发布时间：2020-12-17 00:17:23 所属栏目：大数据来源：网络整理

导读：例如： Sub Test() Dim car as new MyCar car.chassis.wheel.radius = 15 Console.WriteLine(car.chassis.wheel.radius) End Sub 所以问题是.是否可以使用其字符串名称访问该属性东西(“car.chassis.wheel.radius”)= 15？你可以,但不像你的问题那样简洁.

例如：

Sub Test()
  Dim car as new MyCar
  car.chassis.wheel.radius = 15
  Console.WriteLine(car.chassis.wheel.radius)    
End Sub

所以问题是.是否可以使用其字符串名称访问该属性
东西(“car.chassis.wheel.radius”)= 15？

你可以,但不像你的问题那样简洁.

此函数将按名称获取任何对象的任何属性.

Public Function GetPropertyValue(ByVal obj As Object,ByVal PropName As String) As Object
    Dim objType As Type = obj.GetType()
    Dim pInfo As System.Reflection.PropertyInfo = objType.GetProperty(PropName)
    Dim PropValue As Object = pInfo.GetValue(obj,Reflection.BindingFlags.GetProperty,Nothing,Nothing)
    Return PropValue
End Function

我给你留下错误处理.任何后果:)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!