Delen via

Procedure: Een conversieoperator definiëren (Visual Basic)

  • Artikel

Als u een klasse of structuur hebt gedefinieerd, kunt u een typeconversieoperator definiëren tussen het type van uw klasse of structuur en een ander gegevenstype (zoals IntegerDouble, of String).

Definieer de typeconversie als een CType-functieprocedure binnen de klasse of structuur. Alle conversieprocedures moeten zijn Public Shareden elke procedure moet widening of narrowing opgeven.

Het definiëren van een operator in een klasse of structuur wordt ook wel overbelasting van de operator genoemd.

Opmerking

In het volgende voorbeeld worden conversieoperators gedefinieerd tussen een structuur die wordt aangeroepen digit en een 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

U kunt de structuur digit testen met de volgende code.

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

Zie ook