Nasıl yapılır: Bir Dönüşüm İşleci Tanımlama (Visual Basic)

  • Makale

Bir sınıf veya yapı tanımladıysanız, sınıfınızın veya yapınızın türü ile başka bir veri türü (, veya StringgibiIntegerDouble) arasında bir tür dönüştürme işleci tanımlayabilirsiniz.

Tür dönüştürmesini sınıf veya yapı içinde bir CType İşlevi yordamı olarak tanımlayın. Tüm dönüştürme yordamları olmalıdır Public Sharedve her biri Genişletme veya Daraltma belirtmelidir.

Bir sınıf veya yapıda bir işleç tanımlamak, işleci aşırı yükleme olarak da adlandırılır.

Örnek

Aşağıdaki örnek adlı digit bir yapı ile Bytearasında dönüştürme işleçlerini tanımlar.

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

Yapıyı digit aşağıdaki kodla test edebilirsiniz.

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

Ayrıca bkz.