Comment : définir un opérateur de conversion (Visual Basic)
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 une procédure Fonction CType (Visual Basic) dans la classe ou la structure. Toutes les procédures de conversion doivent être Public Shared et chacune doit spécifier Widening (Visual Basic) ou Narrowing (Visual Basic).
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 (Visual Basic)
Comment : appeler une procédure d'opérateur (Visual Basic)
Comment : utiliser une classe qui définit des opérateurs (Visual Basic)
Comment : déclarer une structure (Visual Basic)
Référence
Concepts
Procédures d'opérateur (Visual Basic)