VB.NET中如何让ClassElement访问ClassSection的area属性？

要让ClassElement访问所属ClassSection的area属性，有两种常用且直接的实现方式：

方法一：给ClassElement添加反向引用属性 #

在ClassElement中新增一个指向ClassSection的属性，创建实例时建立双向关联，让ClassElement能直接通过引用访问ClassSection的area。

修改后的代码：

Public Class ClassSection
    Public Property area As Double
    Public Property mElement As ClassElement
        Set(value As ClassElement)
            _mElement = value
            ' 同步设置ClassElement的反向引用
            _mElement.OwningSection = Me
        End Set
        Get
            Return _mElement
        End Get
    End Property
    Private _mElement As ClassElement
End Class

Public Class ClassElement
    ' 新增反向引用，指向所属的ClassSection实例
    Public Property OwningSection As ClassSection

    Public Sub CalculateAreaRatio()
        Dim AreaRatio As Double
        ' 先判断引用是否有效，避免空引用异常
        If OwningSection IsNot Nothing Then
            AreaRatio = OwningSection.area / 10
            ' 此处可添加AreaRatio的后续处理逻辑，比如存储、输出等
        End If
    End Sub
End Class

使用示例：

' 创建实例并建立关联
Dim mySection As New ClassSection()
mySection.area = 150
mySection.mElement = New ClassElement()

' 调用计算方法
mySection.mElement.CalculateAreaRatio() ' 此时AreaRatio为15

方法二：将ClassSection的area作为参数传入方法 #

如果不需要ClassElement长期持有ClassSection的引用，可直接把area值作为参数传入CalculateAreaRatio方法，这种方式更轻量化。

修改后的代码：

Public Class ClassSection
    Public Property area As Double
    Public Property mElement As ClassElement
End Class

Public Class ClassElement
    ' 接收ClassSection的area作为参数
    Public Sub CalculateAreaRatio(sectionArea As Double)
        Dim AreaRatio As Double
        AreaRatio = sectionArea / 10
        ' 此处可添加AreaRatio的后续处理逻辑
    End Sub
End Class

使用示例：

Dim mySection As New ClassSection()
mySection.area = 200
mySection.mElement = New ClassElement()

' 调用时传入area值
mySection.mElement.CalculateAreaRatio(mySection.area) ' 此时AreaRatio为20

注意事项 #

• 方法一需注意避免循环引用导致的内存泄漏，VB.NET的垃圾回收器通常能处理常规场景，但长期存活的对象需谨慎管理关联关系。
• 方法二更适合单次计算的场景，无需维护双向关联逻辑。

内容的提问来源于stack exchange，提问作者Anas Ahmed