Cómo: Definir un operador de conversión
Actualización: noviembre 2007
Si ha definido una clase o estructura, puede definir un operador de conversión de tipos entre el tipo de la clase o estructura y otro tipo de datos (como Integer, Double o String).
Defina la conversión de tipos como un procedimiento CType (Función) en una clase o estructura. Todos los procedimientos de conversión deben ser Public Shared y cada uno debe especificar Widening o Narrowing.
La definición de un operador en una clase o estructura también se denomina sobrecargar al operador.
Ejemplo
El ejemplo siguiente define operadores de conversión entre una estructura denominada digit y un 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
Puede probar la estructura digit con el código siguiente.
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
Vea también
Tareas
Cómo: Llamar a un procedimiento de operador
Cómo: Utilizar una clase que define operadores
Conceptos
Conversiones implícitas y explícitas
Conversiones de ampliación y de restricción