8

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

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

在此处输入图像描述

更详细的解释:我有一些使用结构而不是类的过时代码。因此,我需要确定此结构的字段更改为错误值的时刻。

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

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

4

1 回答 1

9

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

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

左边有效,因为您直接访问它而不是通过属性。

于 2013-08-02T16:27:34.650 回答