Bagikan melalui

Cara: Menentukan Operator Konversi (Visual Basic)

Jika Anda telah menentukan kelas atau struktur, Anda dapat menentukan operator konversi jenis antara jenis kelas atau struktur Anda dan jenis data lain (seperti Integer, Double, atau String).

Tentukan konversi jenis sebagai prosedur Operator CType dalam kelas atau struktur. Semua prosedur konversi harus Public Shared, dan masing-masing harus menentukan Pelebaran atau Penyempitan.

Menentukan operator pada kelas atau struktur juga disebut kelebihan beban operator.

Contoh

Contoh berikut mendefinisikan operator konversi antara struktur yang disebut digit dan 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

Anda dapat menguji struktur digit dengan kode berikut.

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

Lihat juga

  • Last updated on