Accès à un dictionnaire depuis autre module

Version imprimable

17/01/2017, 11h38
Mickou35

Accès à un dictionnaire depuis autre module
Bonjour,

Au lancement de mon programme, je remplie un dictionnaire initialisé de la façon suivante
Code:

1 2 3 4 5 Dim dico As New Dictionary(Of String, String) dico.Add("mickael", "46") dico.Add("christophe", "48") '....
et je peux accèder aux valeurs comme cela

Code:

Debug.Print(dico.Item("mickael"))

resultat 46

tout va bien au sein du module lui même

Comment faire pour accèder au dictionnaire depuis un autre module ?
J'ai tenté ceci sans effet

Code:

Public dico As Object

Merci de votre aide :-)
17/01/2017, 12h10
nicolast

Bonjour,

Si dans ton premier module tu déclares une variable publique :

Code:

Public dico As New Dictionary(Of String, String)

et que tu la remplisses dans le Sub (ou autre) qui est appelé au lancement de ton programme. Tu dois pouvoir l'appeler depuis un autre module en faisant :

Code:

Debug.Print(nomdupremiermodule.dico.Item("mickael"))

voir directement

Code:

Debug.Print(dico.Item("mickael"))

En espérant ne pas dire de bêtise :S

Salut,

VB.NET c'est pas trop mon truc, mais ça doit ressembler à un truc comac :

Code:

1
2
3
4
' le module avec un entier en global
Module MyModule
    Public MyGlobal As Integer = 123
End Module

Code:

1
2
3
4
5
6
' le module qui utilise la globale de l'autre module
Module OtherModule
    Public Function SomeAdd(val as Integer) As Integer
        return (MyModule.MyGlobal + val)
    End Function
End Module

bonjour

Une autre façon plus expéditive est de déclarer ce module (celui du dictionnary )comme Public
Le code de l' "ubiquitous" (omnipresent) module est donné ci-après:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
' "ubiquitous"
Public Module Module1
    Public dico As New Dictionary(Of String, String)
End Module
 
 
'  module non public 
Module Module2
    Public Sub SomeAdd(ByVal key As String, ByVal value As String)
        dico.Add(key, value)
    End Sub
End Module

et le form:

Code:

1
2
3
4
5
6
7
8
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        dico.Add("k1", "boho")
    End Sub
End Class

bon code...