Question

因为三个是只读的并且取决于非属性（四个）。三个应该是不确定的道具如何设置四个，将三个设置为正确值？

public sub main
    Dim x1 = New one, x2 = New two
    x1.one = 3
    MoveCorresponding(x1, x2)
end sub

Public Sub MoveCorresponding(a As Object, b As Object, Optional ignoreList As List(Of String) = Nothing)
    Dim oType As Type = b.GetType
    Dim iType = a.GetType
    Dim props = iType.GetProperties()
    For Each pInf As PropertyInfo In props
        Dim parName = pInf.Name
        If pInf.CanWrite Then
            Try
                Dim val = pInf.GetValue(a, Nothing)
                pInf.SetValue(b, val)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    Next

End Sub

End Class

Class one
    Public Property one As String = "1"
    Dim four As Integer = 1
    Public ReadOnly Property three As Integer
        Get
            Return four * 10
        End Get
    End Property

End Class

Answer 1

您在声明它的同一行设置four：

Dim four As Integer = 1 '<-- see?  it's set to "1".

属性three只是从four：

计算出来的

Return four * 10

我不理解你的问题吗？

Answer 2

这不是回答这个问题。但为什么要编写这样的代码？

令人困惑。

dim four as integer = 1 ' <=== But why? Why use four as object name but hold 1 as it's value??

为什么移动相应的实现工作？

2 个答案: