Comment : définir un opérateur de conversion
Mise à jour : novembre 2007
Si vous avez défini une classe ou structure, vous pouvez définir un opérateur de conversion du type de votre classe ou structure en un autre type de données (tel que Integer, Double ou String).
Définissez la conversion de type comme procédure de la fonction CType dans la classe ou structure. Toutes les procédures de conversion doivent être Public Shared et chacune doit spécifier Widening ou Narrowing.
La définition d'un opérateur sur une classe ou structure est également appelée surcharge de l'opérateur.
Exemple
L'exemple suivant définit des opérateurs de conversion entre une structure appelée digit et 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
Vous pouvez tester la structure digit à l'aide du code suivant.
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
Voir aussi
Tâches
Comment : définir un opérateur
Comment : appeler une procédure d'opérateur
Comment : utiliser une classe qui définit des opérateurs
Comment : déclarer une structure
Concepts
Conversions implicites et explicites
Conversions étendues et restrictives