Практическое руководство. Определение оператора преобразования (Visual Basic)

Если определены класс или структура, можно определить оператор преобразования типа между типом класса или структуры и другим типом данных (например Integer, Double или String).

Определите преобразование типа как процедуру Функция CType (Visual Basic) внутри класса или структуры.Все процедуры преобразования должны быть Public Shared, и каждая из них должна указывать Widening (Visual Basic) или Narrowing (Visual Basic).

Определение оператора в классе или структуре называется также перегрузкой оператора.

Пример

В следующем примере определяются операторы преобразования между структурой digit и 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

Можно проверить структуру digit с помощью следующего кода.

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

См. также

Задачи

Практическое руководство. Определение оператора (Visual Basic)

Практическое руководство. Вызов процедуры оператора (Visual Basic)

Практическое руководство. Использование класса, в котором определяются операторы (Visual Basic)

Практическое руководство. Объявление структуры (Visual Basic)

Ссылки

Оператор Operator

Оператор Structure

Основные понятия

Процедуры операторов (Visual Basic)

Явные и неявные преобразования (Visual Basic)

Расширяющие и сужающие преобразования (Visual Basic)