我可以在 vb.net 结构中定义赋值运算符吗？

Question

我的结构实际上是一个具有更多功能的简单字节。

我是这样定义的：

Structure DeltaTime

    Private m_DeltaTime As Byte
    Public ReadOnly DeltaTime As Byte
        Get
            Return m_DeltaTime
        End Get
    End Property

End Structure

我想拥有这两个功能：

Public Sub Main
    Dim x As DeltaTime = 80 'Create a new instance of DeltaTime set to 80
    Dim y As New ClassWithDtProperty With { .DeltaTime = 80 }
End Sub

有办法实现吗？

如果有一种从 Structure 继承的方法，我只需从 Byte 继承添加我的功能，基本上我只需要一个具有自定义功能的 byte Structure。

当您想要定义新的单例成员值类型（例如，您想要定义半字节类型等）并且您希望能够通过对数字或其他语言的赋值来设置它时，我的问题也是有效的类型表示。

换句话说，我希望能够定义以下 Int4（半字节）结构并按如下方式使用它：

Dim myNibble As Int4 = &HF 'Unsigned

Answer 1

创建一个转换运算符，例如

Structure DeltaTime

    Private m_DeltaTime As Byte
    Public ReadOnly Property DeltaTime() As Byte
        Get
            Return m_DeltaTime
        End Get
    End Property

    Public Shared Widening Operator CType(ByVal value As Byte) As DeltaTime
        Return New DeltaTime With {.m_DeltaTime = value}
    End Operator

End Structure

UPDATE:

对于您建议的 Int4 类型，我强烈建议您将其改为 Narrowing 运算符。这会强制代码的用户显式转换，这是一个视觉提示，表明分配可能在运行时失败，例如

Dim x As Int4 = CType(&HF, Int4) ' should succeed
Dim y As Int4 = CType(&HFF, Int4) ' should fail with an OverflowException