VB.NET开发CAD插件：能否定义成员数据类型可变的结构？

VB.NET 不支持定义成员数据类型可变的结构——结构的成员类型必须在编译阶段确定，无法动态变更。你不需要为每种数据类型单独写重复结构，以下几种方案可以高效解决你的问题：

方案1：泛型结构 #

用泛型复用结构逻辑，针对不同数据类型生成强类型的结构实例，兼顾轻量性和类型安全：

Public Structure Metadata(Of T)
    Public Property Key As String ' 元数据标识键
    Public Property Value As T ' 泛型值，适配String/Currency/Date等所有需要的类型
    Public Property IsEditable As Boolean ' 标记是否允许用户修改
End Structure

' 使用示例
Dim fileNameMeta As Metadata(Of String) = New Metadata(Of String) With {
    .Key = "文件名",
    .Value = "零件1.dwg",
    .IsEditable = True
}
Dim createDateMeta As Metadata(Of Date) = New Metadata(Of Date) With {
    .Key = "创建日期",
    .Value = #2024/01/01#,
    .IsEditable = False
}

这种方式避免了重复定义结构，同时严格约束类型，不会出现意外的类型转换错误。

方案2：带类型标记的Object成员结构 #

如果需要将所有元数据统一管理在一个集合中（比如窗体批量展示场景），可以定义包含Object成员的结构，配合枚举标记数据类型，读写时做类型校验：

Public Enum MetadataType
    StringType
    CurrencyType
    DateType
    BooleanType
    LongType
    PictureType
End Enum

Public Structure MetadataItem
    Public Property Key As String
    Public Property Value As Object
    Public Property Type As MetadataType
    Public Property IsEditable As Boolean

    ' 类型安全的取值方法，避免直接转换出错
    Public Function GetStringValue() As String
        If Type <> MetadataType.StringType Then Throw New InvalidCastException("当前元数据不是字符串类型")
        Return DirectCast(Value, String)
    End Function

    ' 可针对其他类型添加类似的取值方法，比如GetDateValue、GetCurrencyValue等
End Structure

' 使用示例
Dim metadataCollection As New List(Of MetadataItem)()
metadataCollection.Add(New MetadataItem With {
    .Key = "零件成本",
    .Value = New Decimal(1250.75),
    .Type = MetadataType.CurrencyType,
    .IsEditable = True
})

这种方式支持统一管理多类型元数据，注意Object类型会带来少量装箱拆箱开销，需要在转换时做好类型校验。

方案3：重构基类派生类（优化原复杂类） #

如果你之前的类过于复杂是因为数组管理混乱，可以改用抽象基类+派生类的方式，统一访问接口同时保持类型安全：

Public MustInherit Class BaseMetadata
    Public Property Key As String
    Public MustOverride ReadOnly Property Type As MetadataType
    Public Property IsEditable As Boolean
    Public MustOverride Function GetValue() As Object
    Public MustOverride Sub SetValue(value As Object)
End Class

Public Class StringMetadata
    Inherits BaseMetadata
    Public Property StringValue As String
    Public Overrides ReadOnly Property Type As MetadataType
        Get
            Return MetadataType.StringType
        End Get
    End Property
    Public Overrides Function GetValue() As Object
        Return StringValue
    End Function
    Public Overrides Sub SetValue(value As Object)
        StringValue = DirectCast(value, String)
    End Sub
End Class

用List(Of BaseMetadata)替代原来的多数组，能大幅简化元数据的管理逻辑，扩展新类型时只需新增派生类即可。

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