Megosztás a következőn keresztül:

Útmutató: Konverziós operátor definiálása (Visual Basic)

Ha definiált egy osztályt vagy struktúrát, megadhat egy típuskonvertálási operátort az osztály vagy a struktúra típusa és egy másik adattípus (például Integer, Doublevagy String) között.

Adja meg a típuskonverziót az osztályon vagy a struktúrán belüli CType-függvényként . Minden átalakítási eljárásnak meg kell lennie Public Shared, és mindegyiknek meg kell adnia a szélesítést vagy a szűkítést.

Az operátorok osztályon vagy struktúrán való definiálását az operátor túlterhelésének is nevezik.

példa

Az alábbi példa konverziós operátorokat határoz meg egy úgynevezett digit struktúra és egy Byte között.

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

A struktúrát digit az alábbi kóddal tesztelheti.

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

Lásd még