结构中的属性：“表达式是一个值，因此不能成为赋值的目标。”

Question

我有以下两种结构，我真的不明白为什么第二种结构不起作用：

Module Module1    
  Sub Main()
    Dim myHuman As HumanStruct
    myHuman.Left.Length = 70
    myHuman.Right.Length = 70

    Dim myHuman1 As HumanStruct1
    myHuman1.Left.Length = 70
    myHuman1.Right.Length = 70    
  End Sub

  Structure HandStruct
    Dim Length As Integer
  End Structure

  Structure HumanStruct
    Dim Left As HandStruct
    Dim Right As HandStruct
  End Structure

  Structure HumanStruct1
    Dim Left As HandStruct
    Private _Right As HandStruct
    Public Property Right As HandStruct
      Get
        Return _Right
      End Get
      Set(value As HandStruct)
        _Right = value
      End Set
    End Property    
  End Structure    
End Module

更详细的说明：我有一些使用结构而不是类的过时代码。因此，我需要确定此结构的字段变为错误值的时刻。

我的调试解决方案是用同名的属性替换结构字段，然后我在属性设置器中设置一个breackpoint来识别我收到错误值的那一刻......为了不重写所有代码....仅用于调试目的。

现在，我遇到了上面的问题，所以我不知道该怎么做......只在分配了这个结构成员的地方设置断点，但是有很多行都有这个分配...

Answer 1

这只是运行程序时发生的事情。 getter返回结构的副本，在其上设置一个值，然后该结构的副本超出范围（因此修改后的值不会执行任何操作）。编译器将此显示为错误，因为它可能不是您的意图。做这样的事情：

Dim tempRightHand as HandStruct
tempRightHand = myHuman.Right
tempRightHand.Length = 70
myHuman.Right = tempRightHand

左边是有效的，因为你是直接访问它而不是通过属性。