如何为单个类属性创建扩展？（VB.NET代码示例）

嘿，这事儿不难！在VB.NET里，要给你的BaseGeoData/GeoData类的单个属性添加扩展功能，我们可以用扩展方法来实现——这里给你两种常见的实现思路，按需选就行：

思路1：针对整个Geo类写扩展，专门操作目标属性 #

这种方式的好处是，扩展方法绑定到你的BaseGeoData类上，调用时直接从类实例出发，语义更清晰。比如给TravelDistance（米）加转公里、转英里的扩展，给TravelTime（分钟）加转小时、转秒的扩展：

首先要创建一个**模块（Module）**来存放扩展方法（VB.NET要求扩展方法必须放在模块里），并且导入System.Runtime.CompilerServices来使用<Extension>属性：

Imports System.Runtime.CompilerServices

Module GeoDataPropertyExtensions
    ' 把TravelDistance（米）转换为公里
    <Extension>
    Public Function ToKilometers(geoData As BaseGeoData) As Double?
        ' 先判断属性是否有值，避免空引用
        If geoData.TravelDistance.HasValue Then
            Return geoData.TravelDistance.Value / 1000
        End If
        Return Nothing
    End Function

    ' 把TravelDistance（米）转换为英里
    <Extension>
    Public Function ToMiles(geoData As BaseGeoData) As Double?
        Const MetersToMilesRatio As Double = 0.000621371
        If geoData.TravelDistance.HasValue Then
            Return geoData.TravelDistance.Value * MetersToMilesRatio
        End If
        Return Nothing
    End Function

    ' 把TravelTime（分钟）转换为小时
    <Extension>
    Public Function ToHours(geoData As BaseGeoData) As Double?
        If geoData.TravelTime.HasValue Then
            Return geoData.TravelTime.Value / 60
        End If
        Return Nothing
    End Function

    ' 把TravelTime（分钟）转换为秒
    <Extension>
    Public Function ToSeconds(geoData As BaseGeoData) As Double?
        If geoData.TravelTime.HasValue Then
            Return geoData.TravelTime.Value * 60
        End If
        Return Nothing
    End Function
End Module

调用示例 #

创建GeoData实例后，直接调用这些扩展方法就行：

Dim myTrip As New GeoData("Paris", "Berlin")

' 获取转换后的距离
Dim tripKilometers = myTrip.ToKilometers() ' 输出 5.0（因为默认TravelDistance是5000米）
Dim tripMiles = myTrip.ToMiles() ' 输出约3.10686英里

' 获取转换后的时间
Dim tripHours = myTrip.ToHours() ' 输出 6.0（默认TravelTime是360分钟）
Dim tripSeconds = myTrip.ToSeconds() ' 输出 21600秒

思路2：针对属性的类型写通用扩展 #

如果你的其他类也有Double?（即可空Double）类型的属性需要类似的转换，这种方式更通用——直接给Nullable(Of Double)类型写扩展，这样所有同类型的属性都能调用：

Imports System.Runtime.CompilerServices

Module NullableDoubleExtensions
    ' 米转公里（通用扩展，所有Double?类型都能用）
    <Extension>
    Public Function ToKilometers(meters As Double?) As Double?
        If meters.HasValue Then
            Return meters.Value / 1000
        End If
        Return Nothing
    End Function

    ' 米转英里（通用扩展）
    <Extension>
    Public Function ToMiles(meters As Double?) As Double?
        Const MetersToMilesRatio As Double = 0.000621371
        If meters.HasValue Then
            Return meters.Value * MetersToMilesRatio
        End If
        Return Nothing
    End Function
End Module

调用示例 #

这种方式直接从属性出发调用扩展：

Dim myTrip As New GeoData("Paris", "Berlin")

Dim tripKilometers = myTrip.TravelDistance.ToKilometers()
Dim tripMiles = myTrip.TravelDistance.ToMiles()

关键注意点 #

• 扩展方法**必须放在模块（Module）**中，不能放在类里
• 必须给扩展方法标记<Extension>属性，同时导入System.Runtime.CompilerServices命名空间
• 处理Nullable(Of Double)类型时，一定要先判断HasValue，避免空引用异常
• 因为GeoData继承自BaseGeoData，所以针对BaseGeoData写的扩展，GeoData实例也能直接用

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