A cette adresse :
http://webman.developpez.com/preview/vb90/#LF
dans l'avant dernière rubrique il y a le bout de code suivant :
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 Class English Name As String End Class Class Nederlands Naam As String End Class Class Français Nom As String End Class Dim Dictionary = New Dictionary(Of String, String) { _ .Add("English", "Name"), _ .Add("Nederlands", "Naam"), _ .Add("Français", "Nom") } Dim Person As Object = New Français { .Nom = "Eiffel" } Dim Name As String = Person.(Dictionary(Person.GetType().Name))
je teste dans tous les sens mais rien ne fonctionne ?
est-ce vous y arrivez ? si oui comment ? pour moi c'est mystère !
Partager