Sdílet prostřednictvím

Postupy: Definice operátora převodu (Visual Basic)

  • Článek

Pokud jste definovali třídu nebo strukturu, můžete definovat operátor převodu typu mezi typem třídy nebo struktury a jiným datovým typem (například Integer, Doublenebo String).

Definujte převod typu jako proceduru funkce CType v rámci třídy nebo struktury. Všechny procedury převodu musí být Public Shareda každý z nich musí určovat rozšíření nebo zúžení.

Definování operátoru pro třídu nebo strukturu se také označuje jako přetížení operátoru.

Příklad

Následující příklad definuje operátory převodu mezi strukturou volanou digit a a Byte.

Public Structure digit
Private dig As Byte
    Public Sub New(ByVal b As Byte)
        If (b < 0 OrElse b > 9) Then Throw New System.ArgumentException(
            "Argument outside range for Byte")
        Me.dig = b
    End Sub
    Public Shared Widening Operator CType(ByVal d As digit) As Byte
        Return d.dig
    End Operator
    Public Shared Narrowing Operator CType(ByVal b As Byte) As digit
        Return New digit(b)
    End Operator
End Structure

Strukturu digit můžete otestovat pomocí následujícího kódu.

Public Sub consumeDigit()
    Dim d1 As New digit(4)
    Dim d2 As New digit(7)
    Dim d3 As digit = CType(CByte(3), digit)
    Dim s As String = "Initial 4 generates " & CStr(CType(d1, Byte)) &
          vbCrLf & "Initial 7 generates " & CStr(CType(d2, Byte)) &
          vbCrLf & "Converted 3 generates " & CStr(CType(d3, Byte))
    Try
        Dim d4 As digit
        d4 = CType(CType(d1, Byte) + CType(d2, Byte), digit)
    Catch e4 As System.Exception
        s &= vbCrLf & "4 + 7 generates " & """" & e4.Message & """"
    End Try
    Try
        Dim d5 As digit = CType(CByte(10), digit)
    Catch e5 As System.Exception
        s &= vbCrLf & "Initial 10 generates " & """" & e5.Message & """"
    End Try
    MsgBox(s)
End Sub

Viz také