Discussion :

[BasicZX81]

Bonjour à tous,
Dans une procédure bien spécifique j'ai besoin de travailler avec des variables qui peuvent posséder 3 versions de valeurs un peu à la manière des lignes ADO.NET qui permettent de lire les valeurs Original, Current et Modified.
Je ne suis pas loin d'y parvenir mais je but sur un problème lorsqu'il s'agit de spécifier le type de données à passer à ma procédure puisque je ne le connait pas à l'avance.
A noter que dans l'argument 'Value' je passe une valeur issue de la lecture d'une table ADO.NET qui peut prendre la valeur DBNull, dans ce cas la version Original prendra la valeur Nothing.

Voici le code que j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Public Structure TypeString
        Dim Original As String
        Dim Current As String
        Dim Modified As String
    End Structure
    Public Structure TypeBoolean
        Dim Original As Boolean
        Dim Current As Boolean
        Dim Modified As Boolean
    End Structure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim MyString As TypeString = SetVariable(Row("Col1"), "")
Dim MyBoolean as TypeBoolean = SetVariable(Row("Col2"), False)
    Private Function SetVariable(ByVal Value As Object, ByVal Defaut As Object) As Object
        Dim variable As ???????? = Nothing ' Ici je doit spécifier le type de variable.
        If Values Is DBNull.Value Then
            variable.Original = Nothing
            variable.Current = Defaut
        Else
            variable.Original = Values
            variable.Current = Values
        End If
        Return variable
    End Function

je n'ai encore rien figé à ce niveau là et tout est encore possible j'espère que vous pourrait m'aider.

[GuruuMeditation]

Et avec unse structure générique, par exemple.

En C# (désolé, je ne connais pas VB, mais je pense que c'est facile à comprendre)

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
   public struct Versioning<T>
   {
       public T Original { get; set; }
 
       public T Current { get; set; }
 
       public T Modified { get; set; }
   }

Tu peux l'instancier comme ça par exemple:

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
var test = new Versioning<int> { Current = variable, Original = variable == DBNull.Value ? default(int) : variable };

Evidemment, tu peux aussi faire une version générique de ta méthode SetVariable.

[BasicZX81]

Bonjour et merci pour la réponse,
Quelqu'un peut confirmer que je ne me suis pas trompé dans la traduction en VB.NET ?
je trouve mon code très long par rapport à C#

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    Public Structure Versioning(Of T)
        Dim _Original As T
        Dim _Current As T
        Dim _Modified As T
        Public Property Original As T
            Get
                Return _Original
            End Get
            Set(value As T)
                _Original = value
            End Set
        End Property
        Public Property Current As T
            Get
                Return _Current
            End Get
            Set(value As T)
                _Current = value
            End Set
        End Property
        Public Property Modified As T
            Get
                Return _Modified
            End Get
            Set(value As T)
                _Modified = value
            End Set
        End Property
    End Structure

Edit
Je suis perdu en C#, j'ai aussi du mal à traduire la ligne pour instancier
Si quelqu'un peux m'aider ça serait super.

[-N4w4k-]

Salut,
J'utiliserais peut être plus une classe au lieu d'une structure qui est obsolète en .net:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Class MyVar(Of T)
        Public Property Original As T
        Public Property Current As T
        Public Property Modified As T
    End Class
 
    Class Test
 
        Sub Main()
            Dim var As New MyVar(Of Boolean) With
                {
                    .Original = True,
                    .Current = False,
                    .Modified = False
                }
 
            Dim var2 As New MyVar(Of String)
            var2.Original = "plup"
            var2.Current = "plop"
            var2.Modified = "plap"
        End Sub
 
    End Class

[meziantou]

au lieu d'une structure qui est obsolète en .net

D'où tu sort ça. Les structures ont leurs utilisations, rares certes mais ça peut servir.

[-N4w4k-]

Arf, j'étais persuadé à force de l'entendre, ou de mal écouter..
Désolé pour la fausse info

Je vais relire le cours

Edit
En effet, d'après msdn:

When you are defining a container type, consider the following criteria.

A structure can be preferable when:

• You have a small amount of data and simply want the equivalent of the UDT (user-defined type) of previous versions of Visual Basic
• You perform a large number of operations on each instance and would incur performance degradation with heap management
• You have no need to inherit the structure or to specialize functionality among its instances
• You do not box and unbox the structure
• You are passing blittable data across a managed/unmanaged boundary

A class is preferable when:

• You need to use inheritance and polymorphism
• You need to initialize one or more members at creation time
• You need to supply an unparameterized constructor
• You need unlimited event handling support

If your container type does not fit clearly into either of these categories, define a Class. Classes are more flexible than structures, and the storage and performance differences are often negligible. Structures are intended primarily for types that behave like built-in types, not necessarily for general-purpose use.

Je referme la parenthèse. Merci d'avoir rectifié le tir meziantou

[BasicZX81]

Merci de vouloir m'aider mais je suis dans l'impasse.
En effet avec les génériques il n'est pas possible d'utiliser les opérateurs =, <>....etc
Par exemple si je veux comparer en faisant ca : If MyVariable.Original <> MyVariable.Current then....l'éditeur de VS n'accepte pas cette synthaxe avec des types génériques.
Donc ce que je veux faire perd tout sont intérêt.
Si quelqu'un à une autre idée je suis preneur mais je crois que ce n'est pas possible. A l'origine je voulais faire des procédures génériques pour manipuler des variables qui peuvent être des types différents comme ceux la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim MaVariable1Original as String
Dim MaVariable1Current as String
Dim MaVariable1Modified as String
Dim MaVariable2Original as Boolean
Dim MaVariable2Current as Boolean
Dim MaVariable2Modified as Boolean

EDIT : Bien sûre, je compare des string avec des string et des Boolean avec des Boolean.....