다음을 통해 공유

방법: 변환 연산자 정의(Visual Basic)

  • 아티클

클래스 또는 구조체를 정의한 경우 클래스 또는 구조체의 형식과 다른 데이터 형식(예: Integer, Double 또는 String) 간의 형식 변환 연산자를 정의할 수 있습니다.

형식 변환을 클래스 또는 구조 내에서 CType 함수 프로시저로 정의합니다. 모든 변환 프로시저는 Public Shared여야 하며, 각 프로시저는 Widening 또는 Narrowing을 지정해야 합니다.

클래스 또는 구조체에서 연산자를 정의하는 것을 일컬어 연산자 오버로드라고 합니다.

예시

다음 예제에서는 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

참고 항목