Public Class MaList Inherits List(Of Integer) Public Shared Operator +(ByVal Value1 As MaList, _ ByVal Value2 As MaList) As MaList Dim retValue As New MaList With retValue .AddRange(Value1) .AddRange(Value2) End With Return retValue End Operator End Class
Dim Tableau1 As New MaList Dim Tableau2 As New MaList Dim Tableau3 As New MaList With Tableau1 .Add(1) .Add(2) .Add(3) End With With Tableau2 .Add(3) .Add(4) .Add(5) End With Tableau3 = Tableau1 + Tableau2 'Ici, Tableau 3 contiendra les valeurs de Tableau1 et Tableau2
Et pour ma seconde question... Est ce que les fonctions mathematique de la classe Math peuvent être surchargé pour être utilisé avec ma classe perso ?
Dim i As Integer = Math.Round(2.333, 0)'On ne déclare pas Math
Public NotInheritable Class Math2 Public Shared Function RoundList(ByVal value As List(Of Double), _ Optional ByVal digits As Integer = 0_ ) As List(Of Double) Dim retValue As New List(Of Double) For Each Item As Double In value retValue.Add(Math.Round(Item, digits)) Next Return retValue End Function End Class
Dim TabBase As New List(Of Double) Dim TabRounded As New List(Of Double) With TabBase .Add(3.998552) .Add(4.998525) .Add(85525.484421) End With TabRounded = Math2.RoundList(TabBase, 2)
Public [Overloads] Shared [Shadows] Operator {Opérateur} _ (ByVal value As {Type}) As {Type} End Operator
Public Shared Operator +(ByVal value1 As MonType, _ ByVal value2 As MonType _ ) As MonType Dim retVal As New MonType retVal.Prop1 = Value1.Prop1 & Value2.Prop1 Return retVal End Operator
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim a As Single() Dim b As Single() 'je dimensionne mes tableaux 'je mets pleins de nombre dedans 'et j'aimerai pouvoir écrire ça : Dim c as Single() c = a + b 'où l'opération + aurait était définit 'justement je n'arrive pas à définir 'l'opération pour un tableau de single
Tu ne peux pas modifier les opérateurs de types systèmes (tel que les string, les integer, les tableaux etc...)
C'est du VB ca ou du VB.Net