16,552
社区成员
发帖
与我相关
我的任务
分享
Public Structure objTest
Public TestField1 As String
Public TestField2 As String
End Structure
Sub TestGetSetValue()
Dim Test1 As objTest
Test1.TestField1 = "Value1"
Test1.TestField2 = "Value2"
For Each tempInfo As Reflection.FieldInfo In Test1.GetType.GetFields
MessageBox.Show(tempInfo.GetValue(Test1))
'Value1
tempInfo.SetValue(Test1, "newValue")
MessageBox.Show(tempInfo.GetValue(Test1))
'期待值“newValue",实际值”Value1“
Next
End Sub