Discussion :

[Invité]

Bonjour tout le monde,

Ne jamais écrire 3 messages d'affilés sans 4 sur un forum dit-on ... non ?

J'ai traduit le code suivant en VB : http://blogs.msdn.com/b/shawnhar/arc...c-dynamic.aspx

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Namespace SampleHeritage
    Class Animal
    End Class
 
    Class Cat : Inherits Animal
    End Class
 
    Class Dog : Inherits Animal
    End Class
 
    Class Mouse : Inherits Animal
    End Class
 
 
    Module M1
        'We can create several overloads of the same method, specialized according to different combinations of their parameter types:
        Sub ReactSpecialization([me] As Animal, other As Animal)
            Console.WriteLine("{0} is not interested in {1}.", [me], other)
        End Sub
        Sub ReactSpecialization([me] As Cat, other As Dog)
            Console.WriteLine("Cat runs away from dog.")
        End Sub
        Sub ReactSpecialization([me] As Cat, other As Mouse)
            Console.WriteLine("Cat chases mouse.")
        End Sub
        Sub ReactSpecialization([me] As Dog, other As Cat)
            Console.WriteLine("Dog chases cat.")
        End Sub
 
        'And now the magic part:
        Sub React([me] As Animal, other As Animal)
            ReactSpecialization([me], other)
        End Sub
 
        'This works because of the "as dynamic" cast, which tells the C# compiler, 
        'rather than just calling ReactSpecialization(Animal, Animal), 
        'to dynamically examine the type of each parameter and make a runtime choice 
        'about which method overload to invoke.
 
        'To prove it really works:
        Sub Test()
            Dim cat As Animal = New Cat()
            Dim dog As Animal = New Dog()
            Dim mouse As Animal = New Mouse()
 
            React(cat, dog)
            React(cat, mouse)
            React(dog, cat)
            React(dog, mouse)
        End Sub
 
        'Output:
 
        '    Cat runs away from dog.
        '    Cat chases mouse.
        '    Dog chases cat.
        '    Dog is not interested in Mouse.
    End Module
End Namespace

En langage C# et en utilisant un type Dynamic (as dynamic), la sortie du Debug.Print est:

Code :

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

1
2
3
4
5
6
7
 
        'Output:
 
        '    Cat runs away from dog.
        '    Cat chases mouse.
        '    Dog chases cat.
        '    Dog is not interested in Mouse.

Si on essaye ce code en VB, la sortie sera:

Code :

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

1
2
3
4
5
 
'    Cat is not interested in Dog.
'    Cat is not interested in Mouse.
'    Dog is not interested in Cat.
'    Dog is not interested in Mouse.

parce que j'ai remplacé le Type dynamic (C#) en type Animal.

D'après vous, comment obtenir le même résultat qu'en C#.
On voit qu'en exécutant le code, le "Sous-type" est bien respectivement Cat, Dog et Mouse lors de l'initialisation dans la procédure Sub Test().

Merci.

@+

[wallace1]

Bonsoir Nouveau2,

Le type dynamic en C# corresponds à un type dynamique en VbNet donc "Object", ton code devrait donc être le suivant :

Code :

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

1
2
3
4
5
 
 'And now the magic part:
    Sub React([me], other)
        ReactSpecialization([me], other)
    End Sub

A+

[Sehnsucht]

Le mot clef dynamic permet d'utiliser le "late binding" (liaison tardive) en C#.
Le late binding existe depuis la toute première version de VB.Net pour l'utiliser il suffit simplement d'utiliser Object comme type (sous réserve soit le projet dans sa globalité soit le fichier en question soit placée sous la directive Option Strict Off)

[Invité]

Ah nickel

Merci à tous les 2.

Au debut, j'été parti sur l'option Infer = On comme équivalent du dynamic, mais celle-ci ne fonctionne que dans les procédures et non dans les retour de fonctions / passage de paramètres (?).
L'option Strict = Off suffit apparemment donc.

Merci pour ce complément d'infos, tu es à la programmation ce que Larousse est au vocabulaire français.

On dirai bien